Notifikationer

Markér alle som læst Log ud

zildjian Nybegynder

11. august 2003 - 16:58 Der er 24 kommentarer og
1 løsning

Sikkert dum fejl i denne kode!

Hej..
jeg har lige lidt problemer med disse 2 filer (nok kun den ene)

det drejer sig om et "ret" system...

1. fil:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("avlstjeneste.mdb")
Conn.Open DSN
SQL = "select * from avlshanner where id = " & request.querystring("id")
set rs = conn.execute(SQL)
%>
<body bgcolor="#CED7DB">
<form action="retannonce2.asp" method="post">
<input name="id" type="hidden" value="<%=request.querystring("id")%>">
<div align="center">
<center>
<table border="0" width="680" height="461">
<tr align="center">
<td VALIGN="top" WIDTH="646" HEIGHT="21" bgcolor="#7E949F" colspan="4" align="center"><div
align="center"><center><p><font color="#ffffff" face="Tahoma" size="3">RET
DIN ANNONCE / EDIT YOUR ADVERTISE <font SIZE="2"></font></font> </div>
</center>
</td>
</tr>
<tr>
<td width="520" colspan="4" height="21">
<p align="center"></td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="25">
<p align="right">
<font face="Tahoma" size="1">HUNDENS NAVN / NAME OF THE DOG</font>
</td>
<center>
<td width="286" colspan="2" height="25">
<input size="20" name="hundenavn" value="<%=rs("hundenavn")%>"></td>
</tr>
</center>
<center>
</center>
<tr>
<td width="297" colspan="2" height="25">
<p align="right">
<font face="Tahoma" size="1">EJER / OWNER</font>
</td>
<center>
<td width="264" colspan="2" height="25">
<input name="ejer" value="<%=rs("ejer")%>">
</td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="25">
<p align="right"><font face="Tahoma" size="1">TITLER / TITLES</font></td>
<center>
<td width="264" colspan="2" height="25">
<input name="titler" size="20" value="<%=rs("titler")%>">
</td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="29">
<p align="right">
<font face="Tahoma" size="1">OPDRÆTTER / BREEDER</font>
</td>
<center>
<td width="264" colspan="2" height="29">
<input name="opd" size="20" value="<%=rs("opd")%>">
</td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="25">
<p align="right"><font face="Tahoma" size="1">WEBSITE</font></td>
<center>
<td width="264" colspan="2" height="25">
<input name="website" size="20" value="<%=rs("web")%>">
</td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="25">
<p align="right"><font face="Tahoma" size="1">EMAIL</font>
</td>
<center>
<td width="264" colspan="2" height="25">
<input name="mail" size="20" value="<%=rs("mail")%>">
</td>
</tr>
</center>
<tr>
<td width="297" colspan="2" height="13">
<p align="right"><font face="Tahoma" size="1">STAMBOGSFØRENDE KLUB /
PEDIGREE CLUB</font></td>
<center>
<td width="264" colspan="2" height="13">
<input name="sbfk" size="20" value="<%=rs("sbfk")%>">
</td>
</tr>
</center>
<center>
</center>
<center>
</center>
<tr>
<td width="297" colspan="2" height="12">
<p align="right"><font face="Tahoma" size="1">BILLEDE / PICTURE (URL)</font></td>
<center>
<td width="264" colspan="2" height="12"><input name="billede" value="<%=rs("billede")%>">
</td>
</tr>
<tr>
<td width="520" colspan="4" height="21">
<p align="center"><font face="Tahoma" size="2" color="#FF0000"><b>BRUG
IKKE ' og
&amp  I DIN TILMELDING<br>
DON'T USE & AND ' IN YOUR TEXT</b></font></td>
</tr>
<tr>
<td width="299" colspan="2" height="119">
<p align="center"><font face="Tahoma" size="1">DIN TEKST /<br>
YOUR TEXT</font></td>
<td width="262" colspan="2" height="119">
<textarea rows="5" name="tekst" cols="34"><%=rs("tekst")%></textarea>
</tr>
<tr>
<td width="120" height="27"></td>
<td width="143" height="27">
<p align="center"></td>
<td width="162" height="27"><input type="submit" value="RET / EDIT"></td>
<td width="236" height="27"><input type="reset" value="RESET"></td>

</tr>
</table>
</center>
</div>
</form>
<%
conn.close
set conn = nothing
%>

2. fil:

<%
if request.form("billede") = "" Then
billede = "intet"
end if
if request.form("billede") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("titler") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("ejer") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("opd") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("website") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("mail") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("sbfk") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
elseif request.form("tekst") = "" Then
response.redirect "retannonce1.asp?id=" & request.form("id")
else
billede = request.form("billede")
hundenavn =
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("avlstjeneste.mdb")
Conn.Open DSN
SQL = "Update avlshanner Set hundenavn= '" + request.form("hundenavn") + "', "
SQL = SQL & "billede = '" & billede & "', "
SQL = SQL & "titler = '" & request.form("titler") & "', "
SQL = SQL & "opd = '" & request.form("opd") & "', "
SQL = SQL & "ejer = '" & request.form("ejer") & "', "
SQL = SQL & "web = '" & request.form("website") & "', "
SQL = SQL & "mail = '" & request.form("mail") & "', "
SQL = SQL & "sbfk = '" & request.form("sbfk") & "', "
SQL = SQL & "tekst = '" & request.form("tekst") & "' where id = '" & request.form("id") & "'"
conn.execute(SQL)
conn.close
set conn = nothing
end if
%>

her kommer den med fejlen:

Syntax error når man trykker "ret".. Den mener det er i opdaterings SQLen, hvor der står " Set hundenavn = " HER mener den fejlen opstår! det forstår jeg jo ikk??

Synes godt om

htm Nybegynder

11. august 2003 - 17:00 #1

Skal denne linie
SQL = "Update avlshanner Set hundenavn= '" + request.form("hundenavn") + "', "
ikke være
SQL = "Update avlshanner Set hundenavn= '" & request.form("hundenavn") & "', "

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:00 #2

i fil2 er ikke noget med hundenavn??

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:01 #3

doh jo der var dt..

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:08 #4

Prøv at komme med hele fejl koden, samt den fejl tekst der kommer.
En god ide er at lave ' om til to '' i alle strenge for ellers laver den fejl i eksvis "Ole's bil" eks:
hundenavn= '" & Replace(request.form("hundenavn"),"'","''") & "', "

Hvilken type er de forskellige kolonner? Husk for tal kolonne skal der ikke ' omkring. Og hvis en kolonne kan være tom, husk at sætte Tilladnullænge for den kolonne i Access.

Synes godt om

zildjian Nybegynder

11. august 2003 - 17:12 #5

hele fejlkoden:
Microsoft VBScript compilation error '800a03ea'

Syntax error

/avlstjeneste/retannonce2.asp, line 23

hundenavn =
-----------^

nej.. ingen kolonner er tal kolonner.. alle er endten tekst eller notat, kan sq ik se hvad der er galt :-/?

Synes godt om

htm Nybegynder

11. august 2003 - 17:13 #6

Ret linien
SQL = "Update avlshanner Set hundenavn= '" + request.form("hundenavn") + "', "
til:
SQL = "Update avlshanner Set hundenavn= '" & request.form("hundenavn") & "', "

Og prøv så.

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:18 #7

Ja + bør rettes til &

Prøv så at stille curseren op lige før = tegnet i denne linje:

SQL = "Update avlshanner Set hundenavn= '" & request.form("hundenavn") & "', "

Slet med "Delete" knappe de næste 4-6 tegn: = '" & til lige før request så du har:

SQL = "Update avlshanner Set hundenavnrequest.form("hundenavn") & "', "

og skrive dem selv igen, så der igen står, det er set før at der kan komme en usynlig karakter ind og give den fejl:

SQL = "Update avlshanner Set hundenavn= '" & request.form("hundenavn") & "', "

Synes godt om

zildjian Nybegynder

11. august 2003 - 17:28 #8

jeg er forvirret... det virker heller ikke....
det plejer nu at virke både med + og "&".. hmm.... hva satan kan der være galt ...:-s

Synes godt om

htm Nybegynder

11. august 2003 - 17:30 #9

Stadig samme fejl eller?

Synes godt om

zildjian Nybegynder

11. august 2003 - 17:31 #10

ja 100%

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:33 #11

Så prøv at slette hele linjen og skrive den igen.
Er det på din egen PC?

Synes godt om

squashguy Nybegynder

11. august 2003 - 17:33 #12

----------
billede = request.form("billede")
hundenavn =
Set Conn = Server.CreateObject("ADODB.Connection")
----------
som jeg lige læser det, er denne linie ikke gyldig syntax
hundenavn =

Synes godt om

htm Nybegynder

11. august 2003 - 17:34 #13

Nej det er jo klart - den havde jeg ikke set - hvad havde du tænkt dig der? Den skal vel have en værdi?

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:35 #14

arh ja det slet ikke i den linje det er den som squashguy ógså lige skrev

hundenavn =

Synes godt om

eagleeye Praktikant

11. august 2003 - 17:36 #15

det ser ud som om du har være ved at lave variable til dine form data:

billede = request.form("billede")
hundenavn =

men er stoppet igen og i linjen med hundenavn = kommer fejlen.

Synes godt om

htm Nybegynder

11. august 2003 - 17:36 #16

squashguy >> Sorry troede det var zildjian der skrev den linie, selvfølgelig er det den ;o)

Synes godt om

squashguy Nybegynder

11. august 2003 - 17:36 #17

jeg sidder lige og undrer mig... er i på sovepiller?

Kommentar: zildjian
11/08-2003 17:12:15

:o)

Synes godt om

htm Nybegynder

11. august 2003 - 17:37 #18

squashguy >> Varmen ;o)

Synes godt om

zildjian Nybegynder

11. august 2003 - 17:54 #19

Jeg forstår ikke hvad i mener??
jeg kan ikke se nogen variabler jeg har været ved at lave, jeg ikke har gjort færdige??!

Synes godt om

eagleeye Praktikant

11. august 2003 - 18:06 #20

i fil2 har du dette styk kode:

else
billede = request.form("billede")
hundenavn =
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("avlstjeneste.mdb")
Conn.Open DSN

Fejlen kommer i linjen hvor der står:
hundenavn =

Der mangler noget efter = tegnet eksvis som linjen ovenover med Request.Form eller slet linjen da du laver Request.Form i linjen længere nede ved SQL sætningen.

Synes godt om

eagleeye Praktikant

11. august 2003 - 18:07 #21

Du kan slette linjen eller lave den til:
hundenavn = ""

else
billede = request.form("billede")
hundenavn = '<------------------------------- HER KOMMER FEJLEN
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("avlstjeneste.mdb")
Conn.Open DSN

Synes godt om

eagleeye Praktikant

11. august 2003 - 18:29 #22

du kan bare lave de linjer om til dette:

else
billede = request.form("billede")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("avlstjeneste.mdb")
Conn.Open DSN

Synes godt om

zildjian Nybegynder

11. august 2003 - 18:36 #23

DOH ja, det havde jeg ikk set....!!
nu kommer den med en anden fejl...

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/avlstjeneste/retannonce2.asp, line 37

Synes godt om

eagleeye Praktikant

11. august 2003 - 18:38 #24

Og du er 100% sikker på ID ikke er autonummer i tabellen så skal der nemlig ikke ' omkring sådan her:

SQL = "Update avlshanner Set hundenavn= '" & request.form("hundenavn") & "', "
SQL = SQL & "billede = '" & billede & "', "
SQL = SQL & "titler = '" & request.form("titler") & "', "
SQL = SQL & "opd = '" & request.form("opd") & "', "
SQL = SQL & "ejer = '" & request.form("ejer") & "', "
SQL = SQL & "web = '" & request.form("website") & "', "
SQL = SQL & "mail = '" & request.form("mail") & "', "
SQL = SQL & "sbfk = '" & request.form("sbfk") & "', "
SQL = SQL & "tekst = '" & request.form("tekst") & "' where id = " & request.form("id")

Synes godt om

zildjian Nybegynder

11. august 2003 - 19:10 #25

hehe, nej, ups, det var jeg vidst ikke 100% sikker på, tusind tak ;)

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS