men om show.asp ser ut så här:
<%
set rKategori = Request("kategori") ' Hämta annonskategorin
set rDagar = Request("dagar") ' Hur gamla får annonserna vara?
if rKategori = "" then
rKategori = "Säljes"
end if
if rDagar = "" then
rDagar="20"
end if
%>
<html>
<head>
<link REL="STYLESHEET" TYPE="TEXT/CSS" HREF="../godzilla/costodiamin.css">
<title>Costodia Palfinder</title>
</head>
<body>
<h3><font face="Verdana" size="1">Titta på annonser i "<%=rKategori%>"</font></h3>
<form ACTION="show.asp" METHOD="POST">
<b><p><font face="Verdana" size="1">Välj Kategori <select NAME="kategori" size="1">
<option>Man </option>
<option>Kvinna </option>
<option>Tjej </option>
</select> </font></p>
<p><font face="Verdana" size="1">Hur gamla får annonserna vara <select NAME="dagar"
size="1">
<option VALUE="1">1 dag </option>
<option VALUE="10">10 dagar </option>
<option VALUE="30">30 dagar </option>
</select> </font></p>
<p><font face="Verdana" size="1"><input TYPE="SUBMIT" VALUE="Visa annonserna" class="text">
</font></p>
</form>
</b>
<p><font face="Verdana" size="1"><a HREF="enter.htm">Lägg in en ny annons</a> <%
MinstaDatum = DateSerial(year(date), month(date), day(date) - rDagar)
'Skapa ett databasobjekt
set DBConnection = Server.CreateObject("ADODB.Connection")
'Anslut till databasen med en fil-dsn
DBConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\bin\mailisar.mdb"
'skapa SQL-satsen vi använder för att infoga data
SQLstring = "SELECT * FROM radannonser WHERE kategori = '"&rKategori&"' and datum > "&MinstaDatum&" ORDER By datum DESC"
'Utför SQL-satsen och skapa ett recordset RS
set RS=DBConnection.Execute(SQLstring)
if RS.EOF then
Response.Write("<H3>Inga annonser</H3>Det fanns inga annonser som passade in på din sökning.")
end if
Response.Write("<TABLE BORDER=0>")
do while not RS.EOF
'Skapa ett svenskt datum oavsett systemets inställningar
SvensktDatum=year(RS("datum"))&"-"&right("0"&month(RS("datum")),2)&"-"&right("0"&day(RS("datum")),2)
Response.Write("\<TD\> "&SvensktDatum&"\</TD\>\<TD\>\<B\>"&RS("rubrik")&"\</B\>\</TD\>\<TD\>\<B\>Namn:\</B\> "&RS("namn")&"\</TD\>\<TD\>\<TR\>")
Response.Write("\<TD COLSPAN=2 ROWSPAN=2\>\<B\>Annonstext:\</B\>\<BR\>"&RS("annonstext")&"\</TD\>\<TD\>\<B\>Telefon:\</B\>"&RS("telefon")&"\</TD\>\<TR\>")
Response.Write("\<TD\>\<B\>E-post:\</B\> "&RS("epost")&"\</TD\>\<TR\>\<TD COLSPAN = 3\>\<HR\>\</TD\>\<TR\>")
RS.MoveNext
Loop
Response.Write("</TABLE>")
RS.Close
set RS = Nothing
' Stäng databaskopplingsfanskapet
DBConnection.Close
set DBConnection = Nothing
%></font></p>
</body>
</html>
vad ska jag ändra då?
enter.asp ser ut så här:
<!--#include file="functions.asp"-->
<%
set rRubrik = Request("rubrik") ' Hämta annonsrubrien från formuläret
set rText = Request("text") ' Hämta annonstexten...
set rNamn = Request("namn") ' Hämta annonsörnamnet...
set rTelefon = Request("telefon") ' telefonnummer...
set rEpost = Request.Form("epost") ' e-postadress...
set rKategori = Request("kategori") ' kategori...
' Kontrollera värdena från formuläret
if rRubrik = "" or rText = "" then
Response.Write("<H3>Rubrik eller text saknas</H3>Du måste ha en rubrik och en annonstext till din annons!")
else
if rNamn = "" then
rNamn = "Saknas"
end if
if rTelefon = "" then
rTelefon = "Saknas"
end if
if rEpost = "" then
rEpost = "Saknas"
end if
' Skapa ett databasobjekt
set DBConnection = Server.CreateObject("ADODB.Connection")
' Anslut till databasen med en fil
DBConnection.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=bin\\mailisar.mdb"
' Skapa SQL-satsen vi använder för att infoga data
SQLstring = "INSERT INTO radannonser (kategori, rubrik, annonstext, namn, telefon, epost) VALUES ('"& rKategori &"', '"& rRubrik &"','"& rText &"', '"& rNamn &"', '"& rTelefon &"', '"& rEpost &"')"
' Utför SQL-satsen
DBConnection.Execute(SQLstring)
Response.Write("\<H3\>Inmatningen lyckades!\</H3\>Din annons är nu inlagd.")
'Stäng databaskopplingen
DBConnection.Close
set DBConnection = Nothing
end if
%>
<html>
<head>
<title></title>
<link REL="STYLESHEET" TYPE="TEXT/CSS" HREF="../godzilla/costodiamin.css">
</head>
<body>
<p><a HREF="show.asp">Titta på annonserna</a><br>
<a HREF="enter.htm">Lägg in en ny annons</a></p>
</body>
</html>
------------------
Tack på förhand
Mvh Martin Persson
www.Costodia.com
