Vem är det som har skrivit komponenten? Finns det någon readme fil? Eller dokumentation?
Frågan#1
Nån som kan säga hur jag får in filnamnet i databasen
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/images/gallery/" & filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
Följande fil är nu uppladdad:<p>
<%
response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""/images/gallery/" & filename & """>"
Dim objConn
varTillhor= Session ("userID")
varInlagd = Date()
SET objConn = connect()
picture = "INSERT INTO tblUsers_Galleri"
picture = picture & "(bild,tillhor,inlagd) "
picture = picture & "VALUES('MyFile',"& varTillhor &",#"& varInlagd&"#)"
objConn.Execute picture
%>
