---
title: "Asp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/webbservrar/19817-asp"
topic: "Webbservrar"
topic_url: "https://www.webforum.nu/amne/webbservrar"
author: "hatti"
published: "2001-07-08T22:49:00.000Z"
updated: "2001-07-09T09:40:00.000Z"
replies: 1
views: 237
page: 1
pages: 1
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/webbservrar/19817-asp"
---

# Asp

## #1 — hatti, 2001-07-08T22:49Z

Hej när jag skall köra ett asp skript tex min gästbok så säger den att jag inte har fyllt i något fällt när man försöker skriva i den och även om jag fyller i nått direct i databasen så kommer det inte ut i gästboken är det nått speciellt man behöver installera för att kunna köra asp skall inte det ingå i iis:en jag kör windows 2000pro med iis 5.0

inmatings koden
\<%
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "Gastbok"
Set Number = Databas.Execute("Select Count(\*) As Antal FROM Gastbok")
%\>
\<html\>

\<head\>
\<title\>Gästbok\</title\>
\</head\>

\<table border="0" width="626"\>
  \<tr\>
    \<td width="120"\>\</td\>
    \<td width="498"\>
    \<p align="left"\>\<small\>\<font face="Verdana"\>Du kan även läsa vad andra
    har skrivit in tidigare \<a href="guestbookview.asp"\>här\</a\>. Det finns just nu \<b\>\<%= Number("Antal")%\>\</b\>
    inlägg i gästboken.\</font\>\</small\>\</p\>
    \<form method="POST" action="guestbookin.asp"\>
      \<table border="0" width="100%"\>
        \<tr\>
          \<td width="50%" valign="top" align="left"\>\<small\>\<font face="Verdana"\>Namn: \<font
          color="#FF0000"\>\*\</font\>\<br\>
          \<input type="text" name="Namn" size="20"\>\</font\>\</small\>\<p\>\<small\>\<font face="Verdana"\>Ort:\<br\>
          \<input type="text" name="Ort" size="20"\>\</font\>\</small\>\</p\>
          \<p\>\<small\>\<font face="Verdana"\>E-post:\<br\>
          \<input type="text" name="Epost" size="20"\>\</font\>\</small\>\</td\>
         
        \</tr\>
      \</table\>
      \<p\>\<small\>\<font face="Verdana"\>Inlägg: \<font color="#FF0000"\>\*\</font\>\<br\>
      \<textarea rows="4" name="Inlagg" cols="40"\>\</textarea\>\</font\>\</small\>\</p\>
      \<p\>\<small\>\<font face="Verdana" color="#000000"\>(\</font\>\<font face="Verdana"
      color="#FF0000"\>\*\</font\>\<font face="Verdana" color="#000000"\> = Obligatorisk uppgift)\</font\>\</small\>\</p\>
      \<p\>\<input type="submit" value="Skriv i gästboken" name="B1"\>\</p\>
    \</form\>
    \</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>
\<%Databas.Close%\>

intill databasen

\<%
Namn=Request.Form("Namn")
Ort=Request.Form("Ort")
Epost=Request.Form("Epost")
Hittade=Request.Form("Hittade")
Inlagg=Request.Form("Inlagg")

%\>
\<html\>

\<head\>
\<title\>Gästbok\</title\>

\</head\>

\<table border="0" width="626"\>
  \<tr\>
    \<td width="120"\>\</td\>
    \<td width="498"\>\<p align="center"\>\<img src="../images/gastboklogga.gif" width="400"
    height="160" alt="gastboklogga.gif (13100 bytes)"\>\</p\>
    \<p align="center"\>\<%
If Len(Trim(Namn)) \> 0 AND Len(Trim(Inlagg)) \> 0 Then
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "DSN=Gastbok"
SQLStmt = "INSERT INTO Gastbok "
SQLStmt = SQLStmt & "(Namn, Ort, Epost, Hittade, Inlagg) "
SQLStmt = SQLStmt & "VALUES('" & Namn & "', '" & Ort & "', '" & Epost & "', '" & Hittade & "', '" & Inlagg & "'); "
Set Poster = Databas.Execute(SQLStmt)
Databas.Close

%\> \<small\>\<font face="Verdana"\>\<font color="#FF0000"\>Tack för ditt
    inlägg \<%=FormNamn%\>\</font\> \</font\>\</small\>\</p\>
    \<p align="center"\>\<a href="guestbookview.asp"\>\<small\>\<font face="Verdana"\>Klicka här för
    att titta i gästboken\</font\>\</small\>\</a\>\</p\>
    \<hr width="70%" size="1"\>
\<%Else%\>
    \<p align="center"\>\<font face="Verdana"\>\<font color="#FF0000"\>\<small\>Ajaj,\</small\>\<br\>
    \<small\>Du måste skriva in ditt namn och ett inlägg för att göra skriva i vår
    gästbok. Använd webbläsarens bakåtknapp för att prova igen.\</font\> \</small\>\</font\>\</p\>
    \<hr width="70%" size="1"\>
\<%End if%\>
    \<p align="left"\>&nbsp;\</p\>
    \<p align="left"\>&nbsp;\</p\>
    \<p align="left"\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

ut till sidan från data basen

\<%
Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "Gastbok"
Set Poster = Databas.Execute("SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum FROM Gastbok Order by Id desc")

%\>
\<html\>

\<head\>
\<title\>Gästbok\</title\>

\</head\>

\<table border="0" width="626"\>
  \<tr\>
    \<td width="120"\>\</td\>
    \<td width="498"\>\<p align="center"\>\<img src="../images/gastboklogga.gif" width="400"
    height="160" alt="Inlagda Kommentarer"\>\</p\>
    \<p align="center"\>\<a href="guestbook.asp"\>\<small\>\<font face="Verdana"\>Tillbaka till
    huvudsidan\</font\>\</small\>\</a\>\</p\>
    \<p\> \</p\>
    \<table border="0" width="100%"\>
\<%Do Until Poster.EOF%\>      
\<tr\>
        \<td width="33%"\>\<small\>\<font face="Verdana"\>Namn: \<%= Poster("Namn")%\>\</font\>\</small\>\</td\>
        \<td width="35%"\>\<small\>\<font face="Verdana"\>Från: \<%= Poster("Ort")%\>\</font\>\</small\>\</td\>
        \<td width="32%"\>\<small\>\<font face="Verdana"\>Datum:\<%= Poster("FormDatum")%\>\</font\>\</small\>\</td\>
      \</tr\>
      \<tr\>
        \<td width="100%" colspan="3"\>\<small\>\<font face="Verdana"\>Inlägg: \<b\>\<%= Poster("Inlagg")%\> \</b\>\</font\>\</small\>
\<p\>
    \<hr size="1"\>
\</td\>
\<%
Poster.MoveNext
Loop
Poster.Close
Databas.Close
%\>
\</tr\>

    \</table\>

    \<p align="left"\>&nbsp; \</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

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

## #2 — Vide, 2001-07-09T09:40Z

hatti, dubbelposta inte!!!

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

---

Tråden på webben: https://www.webforum.nu/amne/webbservrar/19817-asp