ho provato ad inserire questa query, ma non funziona, dove sbaglio?
codice:
<%
		
If fileSize > 0 Then
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("up.mdb")
		
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "ListFiles", connStr, 2, 2
				
strSQL = "UPDATE ListFiles SET File Name = '"&File Name&"' WHERE UploadID ="&UploadID 
ConnStr.Execute(strSQL)

rs("File Name") = fileName
rs("File Size") = fileSize
rs("File Data").AppendChunk fileData
rs("Content Type") = contentType
					
rs.Update
				
rs.Close
Set rs = Nothing
				
End If
			
			
If Err.number <> 0 Then
Response.Write "
<font color=""red"">riprovare</font>"
End If
%>
l'errore è Expected end of statement
Grazie