---
title: "Inloggningssida funkar ej"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74045-inloggningssida-funkar-ej/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-04-14T09:19:39.000Z"
updated: "2003-04-14T15:41:43.000Z"
replies: 26
views: 465
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/74045-inloggningssida-funkar-ej"
---

# Inloggningssida funkar ej

_Sida 2 av 2._

## #21 — plelkes, 2003-04-14T12:27Z

Så om jag vill ha min formulering, så får jag skriva ut html-koden och annat med response.write - för att servern skall fatta?

Permalänk: https://www.webforum.nu/p/1010564

## #22 — Engine^, 2003-04-14T12:47Z

Jupp. Exempelvis

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

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

  Response.Write strHtml

  Session.LCID = 1053
```

Permalänk: https://www.webforum.nu/p/1010578

## #23 — mrblonde, 2003-04-14T12:53Z

Nej nej nej!

Om du vill att din kod skall fungera kan du göra så här:

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

<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 "<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
%>
</body>
</html>
```

eller så här:

```
<%
If Session ("Inloggad") = "Ja" then

<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 "<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
%>
</body>
</html>
<%
Else
Response.Write "Du är inte auktoriserad"

End If  %>
```

Du måste inte stoppa in html kod i en variabel och skriva ut den med response.write.... finns inget som tvingar dig till det.

Permalänk: https://www.webforum.nu/p/1010582

## #24 — Engine^, 2003-04-14T12:58Z

Nej nej nej?

Vad var det som var så galet?

Permalänk: https://www.webforum.nu/p/1010590

## #25 — mrblonde, 2003-04-14T13:37Z

> **plelkes skrev:**
>
> Så om jag vill ha min formulering, så får jag skriva ut html-koden och annat med response.write - för att servern skall fatta?

> **Engine^ skrev:**
>
> Jupp. Exempelvis
>
> ```
> <%
> If Not Session ("Inloggad") = "Ja" then
>   Response.Write "Du är inte auktoriserad"
> Else
>   Dim strHtml
> 
>   strHtml = "<html><head><title>Redigera</title>" & _
>     "<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1></head>"
> 
>   Response.Write strHtml
> 
>   Session.LCID = 1053
> ```

Det är ju fel att säga att han måste skriva ut html biten med response.write.

Permalänk: https://www.webforum.nu/p/1010627

## #26 — Engine^, 2003-04-14T13:45Z

Ok. Jag förstog frågan lite annorlunda, jag menade inte man måste. Isånnafall skulle jag innan inte ha påpekat att det saknades ett %\> före htmlkoden ;)

Permalänk: https://www.webforum.nu/p/1010640

## #27 — plelkes, 2003-04-14T15:41Z

Tack Engine^ och mrblonde för att ni stod/står ut med mig...

Jag är kunskapstörstig och VILL verkligen lära mig, menhar svårt för att lära mig ngt som jag inte förstår..

Permalänk: https://www.webforum.nu/p/1010717

---

Tråden på webben: https://www.webforum.nu/amne/asp/74045-inloggningssida-funkar-ej/page2  
Föregående sida: https://www.webforum.nu/amne/asp/74045-inloggningssida-funkar-ej.md