Hjälp med asp upload

solbulle skrev:

if request.querystring("laddaupp") = "ja" then

Jag ser inte att du har den querystringen i din action-adress på formuläret!?!

Som sagt...

Men, vad skall jag ändra ? Vad och var skall jag skriva ?

För att komma runt just det problemet behöver du ju antingen bara ta bort den if-satsen i din aspsida som tar hand om datat du sänder, dock bör/måste du ju ha någon form av koll om man ska ladda upp något.
Annars ändrar du din action på ditt formulär i koden som du visar ovan till:

<form method="POST" action="lagg_till_annons_nu10.asp?laddaupp=ja" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data">

Jag tycker att du ska koncentrera dig på att få det hela att fungera till en början för att sen fixa till eventuella kontrollfunktioner samt i sista hand ta hand om det rent utseendemässiga på sidorna. (Så som du gör nu.)
Bara en tanke.

Nu har jag ändrat det till det du skrev där uppe:

<form method="POST" action="lagg_till_annons_nu10.asp?laddaupp=ja" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data">

Men felmeddelande jag får är:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'FileUpload'

/lagg_till_annons_nu10.asp, line 46

Ang att få det hela att funfgera..

DEt fungerar,men bilden får man lägga till i efterhand.Och nu vill jag ändra det till så att man kan lägga upp bild direkt vid nyannonsering.

Jag vet att många av er kan lätt fixa sånt.Nån som vill fixa mina 2 filer ?

Jag hjälper dig gärna, men jag förstår inte riktigt din kod.
Var har du funktionen FileUpload?

Jag är helt.. Jag vet inte.kan du fixa något liknande så att det fungera.

Njao, vill gärna... men du bör ha fått kodraden, eller ett exempel någon stans ifrån, eller hur?
Har du tillgång till någon form av dokumentation av komponenten?
Är det denna? http://www.aspupload.com/manual_simple.html

ja,det är den.Fått den av en kompis.

Ok, mitt tips är att du då frågar honom efter resten av koden, som jag ser det saknas själva uppladningsfunktionen.
Alternativ 2 är att du kikar på sidan jag länkade till.
Det hela är egentligen inte speciellt krångligt. Det du måste observera är att du inte använder request.form utan deras "objekt" - står på sidan.

Hmm.Nu har jag läst.Men jag får inte den att fungera,

Hur ser koden ut nu då?

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
function mkPwd(IntAnt)
strCode= "abcdefghijklmnopqrstuvwxyz0123456789"
for a = 1 to IntAnt
randomize
intTest = rnd * len(strCode)
strPwd= strPwd & mid(strCode,(intTest + 1),1)
next
mkPwd = strPwd
end function
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Annonser.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "select * From Annonser"
RecSet.Open Addera, Connect, 1, 3
recset.addnew
Session("Losenordgenerator") = mkPwd(7)
recset("Losenord") = session("Losenordgenerator")
recset("Annonstyp") = request.form("annonstyp")
recset("kategori") = request.form("kategori")
recset("rubrik") = request.form("rubrik")
recset("annonstext") = request.form("annonstext")
if request.form("pris") = "" then
recset("pris") = recset("pris")
else
recset("pris") = request.form("pris")
end if
recset("bild") = request.form("bild")
recset("fornamn") = request.form("fornamn")
recset("efternamn") = request.form("efternamn")
recset("region") = request.form("region")
recset("telefon") = request.form("telefon")
if request.form("telefongomd") = "" then
recset("telefongomd") = false
else
recset("telefongomd") = request.form("telefongomd")
end if
recset("epost") = request.form("epost1")
recset("Datum") = now()
recset.update
session("AnnonsID") = recset("AnnonsID")
if request.querystring("laddaupp") = "ja" then
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

    intFileUpload = FileUpload("Bilder/", 200000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)

    If intFileUpload = 0 Then
        Response.Write "Filen " & strFilename & " blev uppladat.\<BR\>"
        recset("Bild") = recset("AnnonsID")&"\_0"&recset("AnnonsID")& Replace(fix(recset("datum")),"-","")+696969&"."&right(strFilename,3)

recset.update
response.redirect "andra_ta_bort_bild.asp"
Else
Response.Write "Det uppstod ett fel under uppladdningen!<BR>"
Response.Write "Fel nummer: " & intFileUpload & "<BR>"
Response.Write "Filnamn: " & strFilename & "<BR>"
Response.Write "Filtyp: " & strContentType & "<BR>"
Response.Write "Filstorlek: " & intFileTotalBytes & "<BR>"
End If
connect.close
set connect = nothing
'******************* skickar mail ************
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient request.form("epost1")
jmail.From = "kundtjanst@gratisannons.nu"
Jmail.Priority = 1
jmail.Subject = "Viktigt gällande din annons"
jmail.appendHTML "<html><body><font face=verdana size=2><b>Hej!</b></font><p>"
jmail.appendHTML "<font face=verdana size=1>Gratisannons.nu tackar Dig för Din inlagda annons <I>("&request.form("rubrik")&")</I><p>"
jmail.appendHTML "<font face=verdana size=1>AnnonsID: <b>"&recset("AnnonsID")&"</font></b><br>"
jmail.appendHTML "<font face=verdana size=1>Lösenord: <b>"&recset("Losenord")&"</font></b><p>"
jmail.appendHTML "<font face=verdana size=1>Mvh/Kundtjänst</font></body></html>"
'*************** smtp server till loopia *******
jmail.Send( "smtp.loopia.se")
'*********************************************
response.redirect "lagg_till_annons_2.asp?AnnonsID="&session("AnnonsID")&"&Losenord="&session("Losenordgenerator")
end if
%>

Ser ingen skillnad mot din tidigare kod?
Hur som helst, du kan testa detta:

<% 
Const adOpenKeyset = 1 
Const adLockOptimistic = 3 
function mkPwd(IntAnt) 
strCode= "abcdefghijklmnopqrstuvwxyz0123456789" 
for a = 1 to IntAnt 
randomize 
intTest = rnd * len(strCode) 
strPwd= strPwd & mid(strCode,(intTest + 1),1) 
next 
mkPwd = strPwd 
end function 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Annonser.mdb")&"" 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
Addera = "select * From Annonser" 
RecSet.Open Addera, Connect, 1, 3 
recset.addnew 
Session("Losenordgenerator") = mkPwd(7) 
recset("Losenord") = session("Losenordgenerator") 
recset("Annonstyp") = upload.form("annonstyp") 
recset("kategori") = upload.form("kategori") 
recset("rubrik") = upload.form("rubrik") 
recset("annonstext") = upload.form("annonstext") 
if upload.form("pris") = "" then 
recset("pris") = recset("pris") 
else 
recset("pris") = upload.form("pris") 
end if 
recset("bild") = upload.form("bild") 
recset("fornamn") = upload.form("fornamn") 
recset("efternamn") = upload.form("efternamn") 
recset("region") = upload.form("region") 
recset("telefon") = upload.form("telefon") 
if upload.form("telefongomd") = "" then 
recset("telefongomd") = false 
else 
recset("telefongomd") = upload.form("telefongomd") 
end if 
recset("epost") = upload.form("epost1") 
recset("Datum") = now() 
recset.update 
session("AnnonsID") = recset("AnnonsID") 
if request.querystring("laddaupp") = "ja" then 
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes 

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna som laddas upp.

For Each File in Upload.Files
strFilename = File.Name
Next

If strFilename <> "" Then 
Response.Write "Filen " & strFilename & " blev uppladat.<BR>" 
recset("Bild") = recset("AnnonsID")&"_0"&recset("AnnonsID")& Replace(fix(recset("datum")),"-","")+696969&"."&right(strFilename,3) 
recset.update 
response.redirect "andra_ta_bort_bild.asp" 
Else 
Response.Write "Det uppstod ett fel under uppladdningen!<BR>" 
Response.Write "Fel nummer: " & intFileUpload & "<BR>" 
Response.Write "Filnamn: " & strFilename & "<BR>" 
Response.Write "Filtyp: " & strContentType & "<BR>" 
Response.Write "Filstorlek: " & intFileTotalBytes & "<BR>" 
End If 
connect.close 
set connect = nothing 
'******************* skickar mail ************ 
Set jmail = Server.CreateObject("JMail.Message") 
jmail.AddRecipient upload.form("epost1") 
jmail.From = "kundtjanst@gratisannons.nu" 
Jmail.Priority = 1 
jmail.Subject = "Viktigt gällande din annons" 
jmail.appendHTML "<html><body><font face=verdana size=2><b>Hej!</b></font><p>" 
jmail.appendHTML "<font face=verdana size=1>Gratisannons.nu tackar Dig för Din inlagda annons <I>("&upload.form("rubrik")&")</I><p>" 
jmail.appendHTML "<font face=verdana size=1>AnnonsID: <b>"&recset("AnnonsID")&"</font></b><br>" 
jmail.appendHTML "<font face=verdana size=1>Lösenord: <b>"&recset("Losenord")&"</font></b><p>" 
jmail.appendHTML "<font face=verdana size=1>Mvh/Kundtjänst</font></body></html>" 
'*************** smtp server till loopia ******* 
jmail.Send( "smtp.loopia.se") 
'********************************************* 
response.redirect "lagg_till_annons_2.asp?AnnonsID="&session("AnnonsID")&"&Losenord="&session("Losenordgenerator") 
end if 
%>

testat.

fel igen.

Microsoft VBScript runtime error '800a01a8'

Object required: 'upload'

/lagg_till_annons_nu10.asp, line 21

Ah, sorry, mitt fel.
Denna bit måste ligga innan alla request.upload, förslagsvis högst upp i scriptet.
Flytta denna kodsnutt:

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna som laddas upp.

Persits.Upload.1 error '800a0005'

The system cannot find the path specified.

/lagg_till_annons_nu10.asp, line 3

solbulle skrev:

...
Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna

Har du ändrat sökvägen till den mapp där du vill att filerna ska hamna?