Asp — webForum

hattiMedlem sedan jan. 200164 inlägg

8 juli 2001 22:49#1

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">
Du kan även läsa vad andra
har skrivit in tidigare <a href="guestbookview.asp">här</a>. Det finns just nu <%= Number("Antal")%>
inlägg i gästboken.
<form method="POST" action="guestbookin.asp">
<table border="0" width="100%">
<tr>
<td width="50%" valign="top" align="left">Namn: * 
<input type="text" name="Namn" size="20">Ort: 
<input type="text" name="Ort" size="20">
E-post: 
<input type="text" name="Epost" size="20"></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"><img src="../images/gastboklogga.gif" width="400"
height="160" alt="gastboklogga.gif (13100 bytes)">
<%
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

%> Tack för ditt
inlägg <%=FormNamn%> 
<a href="guestbookview.asp">Klicka här för
att titta i gästboken</a>
<hr width="70%" size="1">
<%Else%>
Ajaj, 
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. 
<hr width="70%" size="1">
<%End if%>
 
 
 </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"><img src="../images/gastboklogga.gif" width="400"
height="160" alt="Inlagda Kommentarer">
<a href="guestbook.asp">Tillbaka till
huvudsidan</a>
 
<table border="0" width="100%">
<%Do Until Poster.EOF%>
<tr>
<td width="33%">Namn: <%= Poster("Namn")%></td>
<td width="35%">Från: <%= Poster("Ort")%></td>
<td width="32%">Datum:<%= Poster("FormDatum")%></td>
</tr>
<tr>
<td width="100%" colspan="3">Inlägg: <%= Poster("Inlagg")%> 

<hr size="1">
</td>
<%
Poster.MoveNext
Loop
Poster.Close
Databas.Close
%>
</tr>

\</table\>

\<p align="left"\>&nbsp; \</td\>

</tr>
</table>
</body>
</html>

VideMedlem sedan dec. 19998 577 inlägg

9 juli 2001 09:40#2

hatti, dubbelposta inte!!!

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu