Finns det någon vänlig själ som gratis eller mot en billig peng skulle kunna hjälpa mig att ändra detta script från aspupload till smartupload? Jag har försökt men lyckas inte.
Jag tror att det räcker med denna filen, annars får jag väl skicka hela scriptet.
kod:--------------------------------------------------------------------------------<%
If not session("login") = True then
Response.redirect "Admin.asp"
end if
if Request.QueryString("add")="ja" then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
' markerades en fil?
Set File = Upload.Files("file")
If Not File Is Nothing Then
' filnamnet
filename = file.Filename
' kollar om filen finns i samma katalog (Ändra sökvägen här)
If Upload.FileExists("bilder/uppskickade\" & filename ) Then
if filename="ingen" then
' spara (Ändra sökvägen här)
File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
Session("medelande")= "Filen sparades i " & File.Path
else
Session("medelande")= "Det finns redan en fil med det namnet"
Response.Redirect("add_ok.asp?fel=2")
end if
Else
' annars spara (Ändra sökvägen här)
File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
Session("medelande")= "Filen sparades i " & File.Path
End If
Else ' ingen fil markerad
Session("medelande")= "Ingen fil markerades"
Response.Redirect("add_ok.asp?fel=3")
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL="SELECT*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3
RecSet.AddNew
RecSet("info")=Upload.Form("info")
Recset("kategori") =Upload.Form("kat")
RecSet("sokvag")=filename
RecSet.Update
RecSet.Close
Set RecSet=nothing
Conn.Close
Set Conn=nothing
Response.Redirect("changebild.asp")
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RecSet1 = Server.CreateObject("ADODB.Recordset")
SQL1="SELECT*From kat ORDER BY ID asc"
SQL="SELECT*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3
RecSet1.Open SQL1, Conn, 3, 3
%>
<html>
<head>
</head>
<body bgcolor="#C2C287" text="#000000" id="all" leftmargin="10" topmargin="10" marginwidth="10" marginheight="10" link="#660000" vlink="#660000" alink="#660000">
<!-- #include file="settings.asp" -->
<font size="2"><a href="login.asp">Adminstrations-startsida</a>|<a href="bildarkiv.asp">Startsida</a></font>
<h3>Ladda upp bild</h3>
<table><tr><td>
<form name="MyForm" action="bildupload.asp?add=ja&ID=<%=Request.QueryString("ID")%>" method="post" enctype="multipart/form-data">
Kategori</td><td>
<SELECT name="kat">
<%
'loopar runt datan i databasen
Do While Not RecSet1.EOF
%><OPTION value="<%=RecSet1("kategori")%>"><%=RecSet1("kategori")%></OPTION>
<%
Recset1.movenext
Loop
%>
</SELECT></td></tr><tr><td>
Kort information om bilden.</td><td><input type="text" name="Info"></td></tr><tr><td>
Ladda upp bild</td><td><input type="file" name="file"></td></tr><tr><td>
<tr><td colspan="2" align="center">
<input type="submit" value="Lägg till">
</td></tr>
</table>
<br><%=copynotis%>
</body>
</html>
