' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' **************************************************************************** file.SaveAs("/images/hotbilleder/" & nytID&.FileExt)
SQL = "UPDATE hotbilleder SET billede = '" & nytID&.FileExt & "' WHERE id = " & nytID Conn.execute(SQL) end if
else sqlfind="Select Count(*) as Found from hotbilleder where (profilerID = '" & Session("id") & "')" set RSfind = Conn.execute(sqlfind)
if RSfind("Found") = "5" then%> Du kan højst have 5 hot billeder. <% else %> Tilføj hot billede!<br> <br>
<FORM METHOD="POST" ACTION="upload.asp?mode=upload&profilerID=<%request.QueryString("id")%>" ENCTYPE="multipart/form-data"> <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR> <textarea name="beskrivelse" cols="40" rows="5"></textarea> <br> <INPUT TYPE="SUBMIT" VALUE="Tilføj"> </FORM> <% end if %> <% end if %> </BODY> </HTML>
Den kommer fint nok frem med min "file" og mit "textfield", men når jeg så skal uploade billedet og tilføje i db, så laver den bare "Der opstod en intern HTTP 500-serverfejl" og "Siden kan ikke vises"
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
Nu har jeg forsøgt med det her: <HTML> <LINK href="/css/style.css" type=text/css rel=stylesheet> <BODY BGCOLOR="white"> <!--#include virtual="/secure/connection.asp"--> <% If Request.QueryString("mode") = "upload" then
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") SQL = "insert into hotbilleder (profilerID,beskrivelse,godkendt) values('" & request.QueryString("profilerID") & "','" & mySmartUpload.Form("beskrivelse") & "','0')" Conn.execute(SQL)
SQL2 = "SELECT last_insert_id() FROM hotbilleder" Set RS = Conn.Execute(SQL2) nytID = RS(0)
' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' **************************************************************************** file.SaveAs("/images/hotbilleder/" & nytID&file.FileName)
SQL = "UPDATE hotbilleder SET billede = '" & nytID&file.FileName & "' WHERE profilerID = '" & request.QueryString("profilerID") & "'" Conn.execute(SQL) end if Next
else sqlfind="Select Count(*) as Found from hotbilleder where (profilerID = '" & Session("id") & "')" set RSfind = Conn.execute(sqlfind)
if RSfind("Found") = "5" then%> Du kan højst have 5 hot billeder. <% else %> Tilføj hot billede!<br> <br>
<FORM METHOD="POST" ACTION="upload.asp?mode=upload&profilerID=<%request.QueryString("id")%>" ENCTYPE="multipart/form-data"> <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR> <textarea name="beskrivelse" cols="40" rows="5"></textarea> <br> <INPUT TYPE="SUBMIT" VALUE="Tilføj"> </FORM> <% end if %> <% end if %> </BODY> </HTML>
Den kommer ikke med nogle fejl, men den uploader ikke billedet, dog til føjer den i db men der kommer ikke noget data i db :-(
prøv først at finde ud af om scriptet i det hele taget kommer ind i For-løkke - ved fx bare at skrive
Response.write "kommer dette med"
inde i løkken.
Er der ingen problemer i det og der altså udskrives noget på siden så flyt linien ned under din "If not file.IsMissing Then" sætning for at se om scriptet når dertil etc... på den måde kan du måske se hvor scriptet fejler
Jeg har fået den til at uploade billedet ved at flytte start af løkken længere ned. Det eneste problem er at den ikke insætter noget data i db med "insert".
Her er koden:
<HTML> <LINK href="/css/style.css" type=text/css rel=stylesheet> <BODY BGCOLOR="white"> <!--#include virtual="/secure/connection.asp"--> <% If Request.QueryString("mode") = "upload" then
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") SQL = "insert into hotbilleder (profilerID,dato,beskrivelse,godkendt,billede) values('" & request.QueryString("profilerID") & "','" & now & "','" & mySmartUpload.Form("beskrivelse") & "','0','')" Conn.execute(SQL)
SQL2 = "SELECT last_insert_id() FROM hotbilleder" Set RS = Conn.Execute(SQL2) nytID = RS(0)
' Upload ' ****** mySmartUpload.Upload For each file In mySmartUpload.Files Response.write "kommer dette med" ' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' **************************************************************************** file.SaveAs("/images/hotbilleder/" & nytID&file.FileName)
SQL = "UPDATE hotbilleder SET billede = '" & nytID&file.FileName & "' WHERE profilerID = '" & request.QueryString("profilerID") & "'" Conn.execute(SQL) end if Next
else sqlfind="Select Count(*) as Found from hotbilleder where (profilerID = '" & Session("id") & "')" set RSfind = Conn.execute(sqlfind)
if RSfind("Found") = "5" then%> Du kan højst have 5 hot billeder. <% else %> Tilføj hot billede!<br> <br>
<FORM METHOD="POST" ACTION="upload.asp?mode=upload&profilerID=<%request.QueryString("id")%>" ENCTYPE="multipart/form-data"> <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR> <textarea name="beskrivelse" cols="40" rows="5"></textarea> <br> <INPUT TYPE="SUBMIT" VALUE="Tilføj"> </FORM> <% end if %> <% end if %> </BODY> </HTML>
Jeg siger mange tak for hjælpen :-) Jeg fik det til at virke. Fik ikke mit id med over i insert, og mht mit tekstfield så tilføjer jeg den efter :-)
// Rene
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
