so que nao agora que e para add a foto da erro
alguem podia me ajudar ai
<%
if request("cidade") <> "" then
session("cidades") = request("cidade")
end if
Dim strConn, oConn, oRS, strSQL
strConn = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("db/sitedb.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Cadastro WHERE nick LIKE '"&session("nick")&"'"
oRS.Open strSQL, strConn
Dim strConn1, oConn1, oRS1, strSQL1
strConn1 = "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("upload.mdb")
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.CreateObject("ADODB.RecordSet")
strSQL1 = "SELECT * FROM up WHERE nick LIKE '"&session("nick")&"' ORDER BY Id DESC"
oRS1.Open strSQL1, strConn1
if request("action") <> "" then
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
If objUpload.Files.Item(1).Size < 51251 then
For Each File In objUpload.Files
If Not File.IsMissing Then
File.SaveAs(Server.MapPath("usuarios/"&session("nick")&".") & File.FileExt)
filename=session("nick") & "." & File.FileExt
End If
Next
if not ors1.bof and not ors1.eof then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Driver do Microsoft Access (*.mdb)}; DBQ=" & Server.MapPath("upload.mdb")
strQuery = "UPDATE up SET upload='"&filename&"' WHERE Nick='"&session("nick")&"'"
objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing
Response.redirect "login_dados.asp"
end if
if ors1.bof and ors1.eof then
sql1 = "insert into up (nick,upload) values('"&session("nick")&"','"&filename&"')"
dsn1="DBQ=" & Server.Mappath("upload.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn1=server.createObject("adodb.connection")
conn1.open dsn1
conn1.execute(sql1)
conn1.close
set conn1 = nothing
Response.redirect "login_dados.asp"
end if
else
response.redirect "login_dados_erro.asp?cidade="&session("cidades")&""
end if
end if
%>
