webForumDet fria alternativet
Logga in / Bli medlem

Hjälp med asp upload

ASP

41 svar · 793 visningar · startad av Tik

TikMedlem sedan juli 2002108 inlägg
Frågan#1

2 filer:

nr1 heter lagg_till_annons10.asp

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

<th align=right valign=top><font size="2" face="Verdana">Ladda upp bild:</font></th>
<td><input type="file" name="laddaupp" size=35>

nr2 heter lagg_till_annons_nu10.asp

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
End If

connect.close
set connect = nothing

Det funkar inte att ladda upp bild.FEL ?

TikMedlem sedan juli 2002108 inlägg
#2

Felmeddelande :

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/lagg_till_annons_nu10.asp, line 91

solbulleMedlem sedan mars 20015 287 inlägg
#3

Vad använder du för komponent?

var öppnar du ditt rs?

TikMedlem sedan juli 2002108 inlägg
#4

jag har loopia hotel,jag tror det är aspsmart

LarsGMedlem sedan dec. 200012 464 inlägg
#5

Denna rad alltså?

recset("Bild") = recset("AnnonsID")&"_0" &  _
recset("AnnonsID") & _
Replace(fix(recset("datum")),"-","")+696969 &"." & _
right(strFilename,3)

Bild, AnnonsID eller datum finns inte med i recset. Hur skapar du recset?

TikMedlem sedan juli 2002108 inlägg
#6

Förstår inte.Hur då skapar recset ?

TikMedlem sedan juli 2002108 inlägg
#7

Hela koden i nr2 heter lagg_till_annons_nu10.asp :

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

solbulleMedlem sedan mars 20015 287 inlägg
#8

RED. Glöm det, för jobbigt...

TikMedlem sedan juli 2002108 inlägg
#9

men det med alla annonsID. Är det OK ? Själva recset ?

TikMedlem sedan juli 2002108 inlägg
#10

använder ASPUpload version 2.1.0.1

LarsGMedlem sedan dec. 200012 464 inlägg
#11

Vilken kodrad är det du får fel på?

Hur är tabellen Annonser definierad?

TikMedlem sedan juli 2002108 inlägg
#12

Här får ni adressen:

http://www.gratisannons.nu/lagg_till_annons10.asp

TikMedlem sedan juli 2002108 inlägg
#13

Här nedan får ni HELA koden lagg_till_annons_nu10.asp:

<%
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)

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

%>

LarsGMedlem sedan dec. 200012 464 inlägg
#14

Du skrev i början att du fick fel på rad 91. Det finns inte 91 rader i den koden du postade.

Vilken rad får du fel på?

TikMedlem sedan juli 2002108 inlägg
#15

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/lagg_till_annons_nu10.asp, line 92

Så står det nu.

och jag har detta i koden också (men jag trodde/tror att det är obetydligt)

'******************* 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")
%>

TikMedlem sedan juli 2002108 inlägg
#16

Nu öppnas tom (Vit) sidan.Inget meddelande.Men annonsen är inte inlagd.

Jesper Ts avatarJesper TMedlem sedan nov. 20017 144 inlägg
#17

1. Var vänlig och använd [ kod ]- taggarna.
2. Du har inte så många rader. (Jag får det till 73 -"line 92")
3. Felmeddelandet betyder antagligen(gissning) att du har stavat fel på ett kolumnnamn.

solbulleMedlem sedan mars 20015 287 inlägg
#18

Vi vet fortfarande inte vilken rad nr 91-92 är...

solbulleMedlem sedan mars 20015 287 inlägg
#19

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

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

TikMedlem sedan juli 2002108 inlägg
#20

Här är hela koden fil nr1.

<form method="POST" action="lagg_till_annons_nu10.asp" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data">
<tr>
<td> </td>
<td class="verdana2">
<font size="2" color="firebrick" face="Verdana">*</font><font face="Verdana" size="2"> <input type="radio" value="Säljes" name="annonstyp" checked>Säljes  <input type="radio" value="Köpes" name="annonstyp">Köpes
<input type="radio" value="Bytes" name="annonstyp">Bytes<br>
<font color="#B22222">
</font></font></td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Kategori: </font>
<font size="2" color="firebrick">*</font></font></td>
<td class="verdana2"><font face="Verdana" size="2"><select name="kategori">
<option value="0" selected>Välj Kategori</option>
<option value="Antikt och Samlarprylar">Antikt och Samlarprylar</option>
<option value="Bilar">Bilar</option>
<option value="Bildelar och Biltillbehör">Bildelar och Biltillbehör</option>
<option value="Biljetter och Resor">Biljetter och Resor</option>
<option value="Bilstereo">Bilstereo</option>
<option value="Båtar">Båtar</option>
<option value="Cyklar">Cyklar</option>
<option value="Datatillbehör och Delar">Datatillbehör och Delar</option>
<option value="Datorer">Datorer</option>
<option value="Djur och Djurartiklar">Djur och Djurartiklar</option>
<option value="Fiske">Fiske</option>
<option value="Foto">Foto</option>
<option value="För Hus och Trädgård">För Hus och Trädgård</option>
<option value="Golf">Golf</option>
<option value="Hobby">Hobby</option>
<option value="Hus och Lägenheter">Hus och Lägenheter</option>
<option value="Hushållsmaskiner">Hushållsmaskiner</option>
<option value="Husvagnar och Husbilar">Husvagnar och Husbilar</option>
<option value="Hästar och Hästsport">Hästar och Hästsport</option>
<option value="Jakt">Jakt</option>
<option value="Kläder">Kläder</option>
<option value="Leksaker och Barnartiklar">Leksaker och Barnartiklar</option>
<option value="Litteratur">Litteratur</option>
<option value="Mopeder">Mopeder</option>
<option value="Motorcyklar">Motorcyklar</option>
<option value="Musikinstrument">Musikinstrument</option>
<option value="Möbler och Heminredning">Möbler och Heminredning</option>
<option value="Snöskotrar">Snöskotrar</option>
<option value="Sport och Fritid">Sport och Fritid</option>
<option value="Telefoner">Telefoner</option>
<option value="TV/Radio/Video/Stereo">TV/Radio/Video/Stereo</option>
<option value="TV-Spel">TV-Spel</option>
<option value="Verktyg och Maskiner">Verktyg och Maskiner</option>
<option value="Övrigt">Övrigt</option>
</select> <br>
<font color="#B22222"></font></font></td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Rubrik: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="1">
<input maxLength="90" size="30" name="rubrik"><br>
 <font color="#B22222"></font></font></td>
</tr>
<tr>
<td class="verdana2" vAlign="top" align="right">
<font face="Verdana"><font size="2">Annonstext: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="2">
<textarea name="annonstext" rows="7" cols="43" style="font-size: 8pt; font-family: Tahoma"></textarea></font></td>
</tr>

<tr>
<th align=right valign=top><font size="2" face="Verdana">Ladda upp bild:</font></th>
<td><input type="file" name="laddaupp" size=35> (ej obligatoriskt)<br>
Bilden får vara max 640 pixlar bred, 480 pixlar hög och inte<br>
överskrida 70 kB, samt måste vara i GIF-, PNG- eller JPEG-format
</td>
</tr>

<tr>
<td class="verdana2" align="right">
<font size="2" face="Verdana">Pris:</font></td>
<td class="verdana2">
<font face="Verdana" size="2">
<input maxLength="10" size="5" name="pris">   <i>Endast
siffror</i> </font>
<font face="Verdana" size="1">
<font face="Verdana" size="1">
</font></font></td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Förnamn: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="1">
<input maxLength="15" size="10" name="Fornamn"> </font>
<font color="#B22222">
</font></td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Efternamn: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="1">
<input maxLength="20" size="10" name="Efternamn"> </font> </td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Län: </font><font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2"> <select name="region">
<option value="0" selected>Välj ett län</option>
<option value="Blekinge">Blekinge</option>
<option value="Dalarna">Dalarna</option>
<option value="Gotland">Gotland</option>
<option value="Gävleborg">Gävleborg</option>
<option value="Göteborg">Göteborg</option>
<option value="Halland">Halland</option>
<option value="Jämtland">Jämtland</option>
<option value="Jönköping">Jönköping</option>
<option value="Kalmar">Kalmar</option>
<option value="Kronoberg">Kronoberg</option>
<option value="Norrbotten">Norrbotten</option>
<option value="Skaraborg">Skaraborg</option>
<option value="Skåne">Skåne</option>
<option value="Stockholm">Stockholm</option>
<option value="Södermanland">Södermanland</option>
<option value="Uppsala">Uppsala</option>
<option value="Värmland">Värmland</option>
<option value="Västerbotten">Västerbotten</option>
<option value="Västernorrland">Västernorrland</option>
<option value="Västmanland">Västmanland</option>
<option value="Älvsborg">Älvsborg</option>
<option value="Örebro">Örebro</option>
<option value="Östergötland">Östergötland</option>
</select><font face="Verdana" size="1"> </font> </td>
</tr>
<tr>
<td class="verdana2" align="right">
<font size="2" face="Verdana">Telefon:</font></td>
<td class="verdana2">
<font face="Verdana" size="2">
<input maxLength="15" size="9" name="Telefon">   <i>Inkl.
riktnr<br>
<input type="checkbox" name="Telefongomd" value="true">
Visa in telefonnumret</i> </font> </td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">E-post: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="2">
<input maxLength="50" name="epost1" size="20"> </font> </td>
</tr>
<tr>
<td class="verdana2" align="right"><font face="Verdana">
<font size="2">Verifiera e-post: </font>
<font size="2" color="firebrick">  *</font></font></td>
<td class="verdana2">
<font face="Verdana" size="2">
<input maxLength="50" name="epost2" size="20"> </font> </td>
</tr>

<tr>
<td class="verdana2" align="right"> </td>
<td class="verdana2">
<font face="Verdana" size="1">
<input type="submit" value="Lägg till annons" name="submit">

283 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
152 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)