Behöver lite hjälp med att byta namn på en fil (bild) som man skickar upp i samband med registrering på ett community. Jag använder aspSmartUpload och att få filen i rätt mapp, lägga till uppgifterna i databasen och där ändra filnamnet till användarens nick fungerar tillfredsställande...
Men att byta namn på själva bilden som hamnar i mappen 'pix' vill sig inte? Borde väl inte vara så svårt? Bilden ska för övrigt heta samma som användaren. Skickar med lite kod, och den saknar då biten som döper om bilden.
<%
' Skapa objektet
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Ladda upp
mySmartUpload.Upload
' Spara bilden i mapp
mySmartUpload.Save("pix")
namn = mySmartUpload.Form("namn")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databasen.mdb")
set rs= Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM test WHERE 1=2"
rs.Open SQL,Conn,1,2
bild = Replace((mySmartUpload.Files(1).Filename), mySmartUpload.Files(1).Filename, namn & ".jpg")
rs.AddNew
rs("bildnamn")= namn
rs("bildtext")=mySmartUpload.Form("texxxt")
rs("bild")= bild
rs.Update
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>