asp & sql database
I am having issues. Maybe my code is wrong somewhere.. HELP..
<%id = Request("ad")
Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
Set MyConn=server.createobject("ADODB.Connection")
set filesys=CreateObject("Scripting.FileSystemObject")
' get the property id from file name
set filesys=CreateObject("Scripting.FileSystemObject")
Set MyFileObject=server.createobject("scripting.filesystemobject")
vPath=request.servervariables("PATH_TRANSLATED")
set vThisFile=MyFileObject.GetFile(vPath)
key = left(vThisFile.Name,len(vThisFile.Name)-4)
'picPath="/blog_pro/images/"
picPath="/blog_pro/images/"
objConn.Open DSNConn
MyConn.open DSNConn
strSQL = "SELECT * from blog_pro WHERE author='" & id &"' and approved = 1 and removed IS NULL"
Set objRec=objConn.Execute(strSQL)
Set RS=MyConn.Execute(strSQL)
objcount=0
%>
| <%If filesys.FileExists(picPath & objRec("author") & ".jpg") Then%>_1.jpg" border=1><%Else%> .jpg" width=85 height=85 border=0> <%End If%> |