---
title: "ASP med access databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10455-asp-med-access-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hatti"
published: "2001-07-08T22:28:00.000Z"
updated: "2001-07-08T22:51:00.000Z"
replies: 2
views: 202
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/asp/10455-asp-med-access-databas"
---

# ASP med access databas

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

Hej jag skall köra en veb server på min 2000 burk och undrar nu varför jag inte kan köra sp jag får upp själva sidorna men den kan inte komunicera med databasen vad ha jag gjort för fel jag har ju installerat iis

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

## #2 — icaaq, 2001-07-08T22:36Z

Du bör nog specifisera din fråga :)

och kan ske slänga upp lite kod så vi får se vad du gjort ;)

Sen kan du ju alltid läsa igenom vide´s databas skola :)
 <http://webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp8.asp> 

Lycka till :h

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

## #3 — hatti, 2001-07-08T22:51Z

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"\> \</p\>
\<p align="left"\> \</p\>
\<p align="left"\> \</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"\>  \</td\>
\</tr\>
\</table\>
\</body\>
\</html\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10455-asp-med-access-databas