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%> <%End If%> |