Notifikationer

Markér alle som læst Log ud

hygge81 Nybegynder

15. august 2002 - 22:09 Der er 15 kommentarer og
1 løsning

Hvad gør jeg forkert ???

Mit script ser sådan her ud :
<%seracces = Request.Cookies("hipass")("acces")%>
<%If seracces = "" Then
Response.redirect "Index.asp?page=8"
Else
End If

acti = Request.QueryString("Do0")
Id1 = Request.QueryString("Id0")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/holstedh.mdb"
set rs=Server.CreateObject("ADODB.recordset")

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
Else If acti = "Ret" Then%>

<link href="../Style/Stylesheet.css" rel="stylesheet" type="text/css">
<p class="headline">Ret/send booking af et arrangement<br>
</p>
<p class="Style1"><br>
(Alle felter skal udfyldes)</p>
<form action="Indhold/Arrang.asp" method="post" name="form2" target="_blank">
<p align="left" class="Style1">Starter D. <br>
<input name="Start_tid" type="text" id="Start_tid" value="<%= RS.Fields("Start_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Slutter D. <br>
<input name="Slut_tid" type="text" id="Start_tid2" value="<%= RS.Fields("Slut_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Arrangementes navn<br>
<input name="Arrangement" type="text" id="Arrangement" value="<%= RS.Fields("Arrangement")%>" size="60" maxlength="60">
<br>
<br>
Arrangementets ansvarlige<br>
<input name="Ansvarlige" type="text" id="Ansvarlige" value="<%= RS.Fields("Ansvarlige")%>" size="50" maxlength="50">
<br>
<br>
Eventuelle spørgsmål skal gå til.... <br>
(Email Addresse eller Tlf. nr.)<br>
<input name="Kontakt" type="text" id="Kontakt2" value="<%= RS.Fields("Kontakt")%>" size="50" maxlength="60">
<br>
<br>
En kort beskrivelse af Arrangementet <br>
<textarea name="Beskrivelse" cols="50" rows="12" wrap="VIRTUAL" id="textarea"><%= RS.Fields("Beskrivelse")%></textarea>
<br>
<input type="reset" name="Reset" value="Slet alt">
<input type="submit" name="Submit" value="Send"></p>
</form>

<%
Else
End If

rs.close
conn.close
%>

Den skal hente en database og slette en tittel eller rette på en anden side.... Jeg bliver ved med at få fejlen :
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/Indhold/pp/retbook.asp, line 60

Linie 60 er den absolut sidste.....Plz help me...!!

Synes godt om

sesam Nybegynder

15. august 2002 - 22:13 #1

Fjerne else her fra: <%
Else
End If

rs.close
conn.close
%>
<%

End If

rs.close
conn.close
%>

Synes godt om

sesam Nybegynder

15. august 2002 - 22:18 #2

Altså den skal se sådan her ud:

<%

End If

rs.close
conn.close
%>

Synes godt om

hygge81 Nybegynder

15. august 2002 - 22:19 #3

Er prøvet.... nu får jeg fejlen :
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/Indhold/pp/retbook.asp, line 58

Linie 58 er nu :
conn.close

Synes godt om

sesam Nybegynder

15. august 2002 - 22:23 #4

<%seracces = Request.Cookies("hipass")("acces")%>
<%If seracces = "" Then
Response.redirect "Index.asp?page=8"
Else -----------------------------------> Prøv at fjern dette i toppen
End If

Synes godt om

hygge81 Nybegynder

15. august 2002 - 22:27 #5

Hjalp desværre heller ikke.....så det er sat ind i dokumentet igen....!!!

Synes godt om

sesam Nybegynder

15. august 2002 - 22:29 #6

Prøv dette:

<%seracces = Request.Cookies("hipass")("acces")%>
<%
If seracces = "" Then
Response.redirect "Index.asp?page=8"
End If

acti = Request.QueryString("Do0")
Id1 = Request.QueryString("Id0")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/holstedh.mdb"
set rs=Server.CreateObject("ADODB.recordset")

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
If acti = "Ret" Then
%>

<link href="../Style/Stylesheet.css" rel="stylesheet" type="text/css">
<p class="headline">Ret/send booking af et arrangement<br>
</p>
<p class="Style1"><br>
(Alle felter skal udfyldes)</p>
<form action="Indhold/Arrang.asp" method="post" name="form2" target="_blank">
<p align="left" class="Style1">Starter D. <br>
<input name="Start_tid" type="text" id="Start_tid" value="<%= RS.Fields("Start_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Slutter D. <br>
<input name="Slut_tid" type="text" id="Start_tid2" value="<%= RS.Fields("Slut_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Arrangementes navn<br>
<input name="Arrangement" type="text" id="Arrangement" value="<%= RS.Fields("Arrangement")%>" size="60" maxlength="60">
<br>
<br>
Arrangementets ansvarlige<br>
<input name="Ansvarlige" type="text" id="Ansvarlige" value="<%= RS.Fields("Ansvarlige")%>" size="50" maxlength="50">
<br>
<br>
Eventuelle spørgsmål skal gå til.... <br>
(Email Addresse eller Tlf. nr.)<br>
<input name="Kontakt" type="text" id="Kontakt2" value="<%= RS.Fields("Kontakt")%>" size="50" maxlength="60">
<br>
<br>
En kort beskrivelse af Arrangementet <br>
<textarea name="Beskrivelse" cols="50" rows="12" wrap="VIRTUAL" id="textarea"><%= RS.Fields("Beskrivelse")%></textarea>
<br>
<input type="reset" name="Reset" value="Slet alt">
<input type="submit" name="Submit" value="Send"></p>
</form>

<%
Else
End If

rs.close
conn.close
%>

Synes godt om

sesam Nybegynder

15. august 2002 - 22:30 #7

Eller dette:

<%seracces = Request.Cookies("hipass")("acces")%>
<%
If seracces = "" Then
Response.redirect "Index.asp?page=8"
End If

acti = Request.QueryString("Do0")
Id1 = Request.QueryString("Id0")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/holstedh.mdb"
set rs=Server.CreateObject("ADODB.recordset")

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
If acti = "Ret" Then
%>

<link href="../Style/Stylesheet.css" rel="stylesheet" type="text/css">
<p class="headline">Ret/send booking af et arrangement<br>
</p>
<p class="Style1"><br>
(Alle felter skal udfyldes)</p>
<form action="Indhold/Arrang.asp" method="post" name="form2" target="_blank">
<p align="left" class="Style1">Starter D. <br>
<input name="Start_tid" type="text" id="Start_tid" value="<%= RS.Fields("Start_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Slutter D. <br>
<input name="Slut_tid" type="text" id="Start_tid2" value="<%= RS.Fields("Slut_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Arrangementes navn<br>
<input name="Arrangement" type="text" id="Arrangement" value="<%= RS.Fields("Arrangement")%>" size="60" maxlength="60">
<br>
<br>
Arrangementets ansvarlige<br>
<input name="Ansvarlige" type="text" id="Ansvarlige" value="<%= RS.Fields("Ansvarlige")%>" size="50" maxlength="50">
<br>
<br>
Eventuelle spørgsmål skal gå til.... <br>
(Email Addresse eller Tlf. nr.)<br>
<input name="Kontakt" type="text" id="Kontakt2" value="<%= RS.Fields("Kontakt")%>" size="50" maxlength="60">
<br>
<br>
En kort beskrivelse af Arrangementet <br>
<textarea name="Beskrivelse" cols="50" rows="12" wrap="VIRTUAL" id="textarea"><%= RS.Fields("Beskrivelse")%></textarea>
<br>
<input type="reset" name="Reset" value="Slet alt">
<input type="submit" name="Submit" value="Send"></p>
</form>

<%
End If

rs.close
conn.close
%>

Synes godt om

hygge81 Nybegynder

15. august 2002 - 22:34 #8

Noop....sorry...stadig en Expected 'End' fejl i linie 59 som er
conn.close

Synes godt om

sesam Nybegynder

15. august 2002 - 22:35 #9

Har du prøvet begge to?

Synes godt om

hygge81 Nybegynder

15. august 2002 - 22:38 #10

Jep....
Og linierne
If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
If acti = "Ret" Then
%>
kan ikke lade sig gøre med mindre du har en END IF til hver...og det har du ikke !!!

Synes godt om

sesam Nybegynder

15. august 2002 - 22:39 #11

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
end if
If acti = "Ret" Then

Synes godt om

sesam Nybegynder

15. august 2002 - 22:46 #12

virker det?

Synes godt om

hygge81 Nybegynder

15. august 2002 - 22:46 #13

Ok...forfra...Nu er jeg nået så langt her...:

<%seracces = Request.Cookies("hipass")("acces")%>
<%If seracces = "" Then
Response.redirect "Index.asp?page=8"
Else
End If

acti = Request.QueryString("Do0")
Id1 = Request.QueryString("Id0")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/holstedh.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Booking WHERE Id=" & Id1, conn

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id=" & Id1, conn
End If
If acti = "Ret" Then%>

<link href="../Style/Stylesheet.css" rel="stylesheet" type="text/css">
<p class="headline">Ret/send booking af et arrangement<br>
</p>
<p class="Style1"><br>
(Alle felter skal udfyldes)</p>
<form action="Indhold/Arrang.asp" method="post" name="form2" target="_blank">
<p align="left" class="Style1">Starter D. <br>
<input name="Start_tid" type="text" id="Start_tid" value="<%= RS.Fields("Start_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Slutter D. <br>
<input name="Slut_tid" type="text" id="Start_tid2" value="<%= RS.Fields("Slut_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Arrangementes navn<br>
<input name="Arrangement" type="text" id="Arrangement" value="<%= RS.Fields("Arrangement")%>" size="60" maxlength="60">
<br>
<br>
Arrangementets ansvarlige<br>
<input name="Ansvarlige" type="text" id="Ansvarlige" value="<%= RS.Fields("Ansvarlige")%>" size="50" maxlength="50">
<br>
<br>
Eventuelle spørgsmål skal gå til.... <br>
(Email Addresse eller Tlf. nr.)<br>
<input name="Kontakt" type="text" id="Kontakt2" value="<%= RS.Fields("Kontakt")%>" size="50" maxlength="60">
<br>
<br>
En kort beskrivelse af Arrangementet <br>
<textarea name="Beskrivelse" cols="50" rows="12" wrap="VIRTUAL" id="textarea"><%= RS.Fields("Beskrivelse")%></textarea>
<br>
<input type="reset" name="Reset" value="Slet alt">
<input type="submit" name="Submit" value="Send"></p>
</form>

<%
End If

rs.close
conn.close
%>

Den melder:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'Id='.
/Indhold/pp/retbook.asp, line 14

Linie 14 er :
rs.Open "SELECT * FROM Booking WHERE Id=" & Id1, conn

Synes godt om

sesam Nybegynder

15. august 2002 - 22:57 #14

Du får jo på en eller and vis ikke overført en værdi til id1

Synes godt om

hygge81 Nybegynder

15. august 2002 - 23:08 #15

Hey...fik det til at køre....det skal se sådan her ud...

<%seracces = Request.Cookies("hipass")("acces")%>
<%If seracces = "" Then
Response.redirect "Index.asp?page=8"
Else
End If

acti = Request.QueryString("acti0")
Id1 = Request.QueryString("id0")

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/holstedh.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM Booking WHERE Id =" & Id1, conn

If acti = "Slet" Then
rs.Open "DELETE * FROM Booking WHERE Id =" & Id1, conn
End If
If acti = "Ret" Then
%>
<link href="../Style/Stylesheet.css" rel="stylesheet" type="text/css">
<p class="headline">Ret/send booking af et arrangement<br>
</p>
<p class="Style1"><br>
(Alle felter skal udfyldes)</p>
<form action="Indhold/Arrang.asp" method="post" name="form2" target="_blank">
<p align="left" class="Style1">Starter D. <br>
<input name="Start_tid" type="text" id="Start_tid" value="<%= RS.Fields("Start_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Slutter D. <br>
<input name="Slut_tid" type="text" id="Start_tid2" value="<%= RS.Fields("Slut_tid")%>" size="10" maxlength="10">(DD-MM-YYYY)
<br>
<br>
Arrangementes navn<br>
<input name="Arrangement" type="text" id="Arrangement" value="<%= RS.Fields("Arrangement")%>" size="60" maxlength="60">
<br>
<br>
Arrangementets ansvarlige<br>
<input name="Ansvarlige" type="text" id="Ansvarlige" value="<%= RS.Fields("Ansvarlige")%>" size="50" maxlength="50">
<br>
<br>
Eventuelle spørgsmål skal gå til.... <br>
(Email Addresse eller Tlf. nr.)<br>
<input name="Kontakt" type="text" id="Kontakt2" value="<%= RS.Fields("Kontakt")%>" size="50" maxlength="60">
<br>
<br>
En kort beskrivelse af Arrangementet <br>
<textarea name="Beskrivelse" cols="50" rows="12" wrap="VIRTUAL" id="textarea"><%= RS.Fields("Beskrivelse")%></textarea>
<br>
<input type="reset" name="Reset" value="Slet alt">
<input type="submit" name="Submit" value="Send"></p>
</form>

<%
End If

rs.close
conn.close
%>

Men tak for hjælpen....!!

Hygge...!!!

Synes godt om

sesam Nybegynder

15. august 2002 - 23:10 #16

Det var så lidt...

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

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access	9	16/04/202620:11	21/04/202615:43
AI integreret i Access Af per2edb i Access	3	06/04/202610:42	06/04/202612:58
Autonummerering Af hlnviv i Access	2	06/03/202606:24	06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access	6	03/03/202613:18	04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25

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