ASPImage Resize, plus tekst!
Hey!Jeg har skal have lavet en side hvor man kan uploade et billede også skal der komme en tekst på som man angiver i formen.. Billedet skal også resize's, mit script ser sådan her ud:
<%
if Session("Access_Level") = "Administrator" Then
%>
<%
'Variables
Dim mySmartUpload, file
'Object creation
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next
'Upload
mySmartUpload.Upload
'Only if the file exist
If not mySmartUpload.files.item(1).IsMissing Then
'sample with a physical path
mySmartUpload.files.item(1).SaveAs("../images/" & mySmartUpload.files.item(1).FileName)
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../em.mdb") & ";UID=admin;PWD=;"
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From news"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
'Display the properties of the current file
response.write "../default.asp?page=forside"
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("navn") = mySmartUpload.Form("navn")
rs("posted") = Session("Gamernick")
rs("news") = mySmartUpload.Form("news")
rs("info") = mySmartUpload.Form("info")
rs("kategori") = mySmartUpload.Form("kategori")
rs("billed") = mySmartUpload.files.item(1).FileName
rs("Dato") = Now
rs.update
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Else
Response.Write("Du har ikke valgt et billede!")
End If
Err.Clear
Set mySmartUpload = Nothing
%>
<%
else response.redirect "../default.asp"
end if
%>
Håber i kan hjælpe mig ;)
/Mjall0w-
