webForumDet fria alternativet

Microsoft VBScript compilation error '800a0400'

36 svar · 755 visningar · startad av plelkes

plelkesMedlem sedan mars 2002823 inlägg
#1

Hej,
modifieringar på admin-sida har medfört massor med felmeddelanden... Har egnat hela morgonen åt att göra som man bör, dvs leta reda på svaren själv. Men på denna senaste går jag bet på!!

Fel-meddelandet ser ut som följer:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'EOF'
/plelkes/redigera.asp, line 28

Sidans kod:

<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
%>

<html>
<head>
<title>Redigera</title>

</head>

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL, strSQL1, rs1

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
rs1 = minCon.Execute(strSQL1)
Do while not rs1.EOF

	Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
	Response.Write "Nu kan du " & rs1("Fnamn") 
	Response.Write "redigera gästboken!"
rs1.MoveNext
Loop
	Response.Write "</U></font></i></b></font></p><BR><BR><BR>"
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing

End If %>
</body>
</html>

Rad 28 är:

Do while not rs1.EOF
@ndersMedlem sedan juni 200026 914 inlägg
#2
[b]set[/b] rs1 = minCon.Execute(strSQL1)

Mvh

@ndersMedlem sedan juni 200026 914 inlägg
#3

Du öppnar aldrig rsGbok heller, du exekverar inte strSQL.

plelkesMedlem sedan mars 2002823 inlägg
#4

Du öppnar aldrig rsGbok heller, du exekverar inte strSQL.

Anders, det fungerade innan jag började med mina modifieringar!

plelkesMedlem sedan mars 2002823 inlägg
#5

Du öppnar aldrig rsGbok heller, du exekverar inte strSQL.

Jag såg att raden

rsGbok.Open strSQL, minCon, 3, 3

fallit bort

Men om jag har med den raden, så får jag följande fel

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/plelkes/redigera.asp, line 25

rad 21 - 40

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
rsGbok.Open strSQL, minCon, 3, 3
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)
Do while not rs1.EOF

	Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
	Response.Write "Nu kan du " & rs1("Fnamn") 
	Response.Write "redigera gästboken!"
rs1.MoveNext
Loop
	Response.Write "</U></font></i></b></font></p><BR><BR><BR>"
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post"">"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"

Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop

Snälla hjälp mig - börjar bli galen!

Engine^Medlem sedan dec. 20002 861 inlägg
#6

Det kommer i lite fel ordning...

strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
plelkesMedlem sedan mars 2002823 inlägg
#7

Fungerar ej snyft!! dvs tabellen, checkboxar och knappen funkar, men inte kollen om jag är inloggad, eller välkomsthälsningen

plelkesMedlem sedan mars 2002823 inlägg
#8

För att förtydliga mig:
det jag vill åstadkomma är:

  1. kolla om rätt person är inloggad
  2. om ja, i såfall skriv hälsningsfras med det förnamn som korellerar till passw
  3. skriv ut tabellen
  1. har jag löst med forumets hjälp:
<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
%>

punkt 2 har jag tänkt lösa med följande

strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)
Do while not rs1.EOF

	Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
	Response.Write "Nu kan du " & rs1("Fnamn") 
	Response.Write "redigera gästboken!"
rs1.MoveNext
Loop

Punkt 3 fungerad förrut

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
	Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
	Response.Write "Nu kan du" & rs.guests.admin("Fnamn") 
	Response.Write "redigera gästboken!"
	Response.Write "</U></font></i></b></font></p><BR><BR><BR>"
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
End If  %>
</body>
</html>

Om nu delarna fungerar, så varför kan jag ej sy ihop det hela?

Engine^Medlem sedan dec. 20002 861 inlägg
#9

Om kollen för inloggningen inte fungerar, så beror väl det antagligen på att din inloggningsfunktion inte gör det den ska. Du kan ju alltid testa att pilla i global.asa och skippa inloggningsförfarandet, för att se om du gör rätt...

Sub Session_OnStart
  Session("inloggad") = "" [blue]'Nu ska inget visas på gästbokssidan...
  .
  .
  .[/blue]
End Sub

Välkomsthälsningen? Ska det vara den Nu kan du xxxxx redigera? Isånnafall kan du ju ändra lite på den kodbiten...

strSQL1 ="SELECT * FROM admin WHERE password = '" & [blue]'Stoppa in något du vet finns här[/blue] & "'"

Set rs1 = minCon.Execute(strSQL1)
If rs1.EOF Then
  Response.Write "<p>Ingen data hittades.</p>"
Else
  Response.Write rs1.RecordCount & " st poster hittades."

  While Not rs1.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & rs1("Fnamn") 
    Response.Write "redigera gästboken!"
    rs1.MoveNext
  Wend
End If
plelkesMedlem sedan mars 2002823 inlägg
#10

Response.Write rs1.RecordCount & " st poster hittades."

varför har du med denna rad?

Engine^Medlem sedan dec. 20002 861 inlägg
#11

Åh, bara för informationens skull. Helt onödig egentligen i det här sammanhanget, men en vanesak från min sida när jag felsöker ;)

plelkesMedlem sedan mars 2002823 inlägg
#12

Nu har jag försökt med nedanstående:

<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
%>

<html>
<head>
<title>Redigera</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>

</head>

<%
If Session ("Inloggad") = "Ja" then
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)

  While Not rs1.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & rs1("Fnamn") 
    Response.Write "redigera gästboken!"
    rs1.MoveNext
  Wend
%>
<html>
<head>
<title>Redigera</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>

</head>

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
%>
</body>
</html>
<%
Else
Response.Write "Du är inte auktoriserad"

End If  %>

Får då meddelandet:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/plelkes/redigera.asp, line 74

Men rad 74 är ju:

End If  %>
PoffeMedlem sedan apr. 20022 935 inlägg
#13

Du frågar ju om Session("Inloggad") = "Ja" två ggr, känns onödigt ;)
Dessutom sätter du inte in End If för den första frågan.

Men om du tar bort den första kontrollen så ska det nog funka

Engine^Medlem sedan dec. 20002 861 inlägg
#14

Det är den andra kontrollen som ska bort, annars kommer det med onödig html på sidan. Det är den andra If Session("inloggad") = "Ja" Then, som orsakar felet. Rad 74 har egentligen ingenting med det att göra.

PoffeMedlem sedan apr. 20022 935 inlägg
#15

Oj, helt rätt. Tänkte inte på att inte

</body>
</html>

var innanför Else

plelkesMedlem sedan mars 2002823 inlägg
#16

Tyvärr så funkar det inte oavsett vilken av if´en jag tar bort
kod1

<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)

  While Not rs1.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & rs1("Fnamn") 
    Response.Write "redigera gästboken!"
    rs1.MoveNext
  Wend
  %>

<html>
<head>
<title>Redigera</title>

</head>

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
End If
%>
</body>
</html>

kod 2

<%
If Session ("Inloggad") = "Ja" then
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)

  While Not rs1.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & rs1("Fnamn") 
    Response.Write "redigera gästboken!"
    rs1.MoveNext
  Wend
%>
<html>
<head>
<title>Redigera</title>
<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>

</head>

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
%>
</body>
</html>
<%
Else
Response.Write "Du är inte auktoriserad"

End If  %>

både ger samma fel

Microsoft VBScript runtime error '800a01a8'

Object required: ''

fast på olika rader

SebbeMedlem sedan jan. 20031 603 inlägg
#17

Du måste sätta raden

Set minCon = Server.CreateObject("ADODB.Connection")

innan raden

Set rs1 = minCon.Execute(strSQL1)
plelkesMedlem sedan mars 2002823 inlägg
#18

Sebbe,
menar du så här:

<%
If Not Session ("Inloggad") = "Ja" then
Response.Write "Du är inte auktoriserad"
Else
Set minCon = Server.CreateObject("ADODB.Connection")
strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
Set rs1 = minCon.Execute(strSQL1)

  While Not rs1.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & rs1("Fnamn") 
    Response.Write "redigera gästboken!"
    rs1.MoveNext
  Wend
  %>

<html>
<head>
<title>Redigera</title>

</head>

<%  
Session.LCID = 1053 
dim minCon 'Connection
     dim rsGbok 'recordsetten för nya inlägg
     dim strSQL

set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")
strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
	Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
	Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"
Do While Not rsGbok.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write rsGbok("Namn")
	Response.Write "</U></B></H3></TD>"
	Response.Write "<TD WIDTH=""556"">"
    Response.Write rsGbok("Message")
	Response.Write "</TD><TD WIDTH=""37"">"
	Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& rsGbok("ID") &""">"
    Response.Write "</TD></TR>"
	Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
	Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
	Response.Write "</TD></TR>"
rsGbok.MoveNext
Loop
  Response.Write "</TABLE></FORM>"
rsGbok.Close
Set rsGbok = Nothing
Set minCon = Nothing
End If
%>
</body>
</html>

Funkar ej

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/plelkes/redigera.asp, line 7

Engine^Medlem sedan dec. 20002 861 inlägg
#19

Små förändringar, men rätt ordning på sakerna...

<%
If Not Session ("Inloggad") = "Ja" then
  Response.Write "Du är inte auktoriserad"
Else
  Dim strSQL, objRS, objConn

  Set objConn = Server.CreateObject("ADODB.Connection")
  Set objRS = Server.CreateObject("ADODB.RecordSet")

  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb")

  strSQL ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'"
  
  Set objRS = objConn.Execute(strSQL, , 1)

  While Not objRS.EOF
    Response.Write "<p align=center><font size=7><b><i><font color=#FFCC33 SIZE=""+3"">"
    Response.Write "Nu kan du " & objRS("Fnamn") 
    Response.Write "redigera gästboken!"
    objRS.MoveNext
  Wend
%>
<html>
<head>
  <title>Redigera</title>
</head>
<%  
  Session.LCID = 1053 

  strSQL =" SELECT * FROM guestbook ORDER by ID DESC"
  Set objRS = objConn.Execute(strSQL, , 1)
  
  Response.Write "<FORM ACTION=""radera.asp"" METHOD=""post""></FORM>"
  Response.Write "<TABLE WIDTH=""800""  BORDER=""1"" ALIGN=""CENTER"" CELLPADDING=""5"" CELLSPACING=""5"">"

  Do While Not objRS.EOF
    Response.Write "<TR> <TD WIDTH=""149""><H3><B><U>"
    Response.Write objRS("Namn")
    Response.Write "</U></B></H3></TD>"
    Response.Write "<TD WIDTH=""556"">"
    Response.Write objRS("Message")
    Response.Write "</TD><TD WIDTH=""37"">"
    Response.Write "<INPUT NAME=""delete"" TYPE=""checkbox"" VALUE="""& objRS("ID") &""">"
    Response.Write "</TD></TR>"
    Response.Write "<TR ALIGN=""RIGHT"" VALIGN=""MIDDLE"">"
    Response.Write "<TD COLSPAN"="3"">"
    Response.Write "<INPUT TYPE=""submit"" VALUE=""Radera markerade"">"
    Response.Write "</TD></TR>"

    objRS.MoveNext
  Loop
  
  Response.Write "</TABLE></FORM>"

  objRS.Close
  Set objRS = Nothing
  Set objConn = Nothing
End If
%>
</body>
</html>
plelkesMedlem sedan mars 2002823 inlägg
#20

Fungerar fortfarande inte att:

  1. bara se sidan när man är inloggad
  2. skriva ut välkomsthälsningen
Genererad på 416 ms · cache AV · v20260730165559-full.f96bc7eb