Skal bruge ASP script til køb/salg

Kan jeg sagtens...

henrik-friis@mail.tele.dk

Lyder godt ... tak

Du kan bare maile når du har noget klar.

Skal det ikke være noget auktion ting?

Ikke auktion brugeren skal bare kunne sætte en annonce på siden som eksempelvis har en gyldighedsperiode på en måned.

har du fået et svar ? Eller kan jeg også nå at gøre et forsøg....?

kasseper>> Du må gerne komme med et bud.

Jeg hæver lige point til 320 point så der er nok hvis i begge har et godt bud!

Er vi enige om at du selv klare selve designet ???
Jeg er ikke nogen ørn til at tegne :)

Der skal jo bruges en database, er det en du selv har lavet, eller skal jeg alve den også ???

Jeg skal nok selv lave designet.

Du må gerne lave en access database - :-)

Her er min kode :
***********************
<%
dim navn, email, tlf, besk, nedl1, nedl2
navn = request.form(\"navn\")
email = request.form(\"email\")
tlf = request.form(\"tlf\")
besk = request.form(\"beskrivelse\")
nedl1 = request.form(\"nedlagges\")
nedl2 = dateAdd(\"d\",nedl1,date())
  DBPath = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
  DBPath = DBPath &  \"DBQ=\" & server.mappath(\"mydb.mdb\")
  set objConn = server.createobject(\"ADODB.connection\")
  objConn.Open DBPath
if navn <> \"\" then
SQL = \"insert into mytable (Navn, Email, Tlf, Sb, oprettet, nedlagges) Values (\'\"
SQL = SQL & navn & \"\', \'\" & email & \"\', \'\" & tlf & \"\', \'\" & besk & \"\', #\" & date() & \"#, #\" & nedl2 & \"#)\"
objConn.execute(SQL)
end if
    SQL = \"delete from mytable where nedlagges < #\" & date() & \"#\"
      objConn.execute(SQL)
    SQL = \"select * from mytable where oprettet <= #\" & date() & \"#\"
    set rs = objConn.execute(SQL)
%>
<html>
<head>
<title>
KØB OG SALG
</title>
</head>
<body>
Køb og salg
<table border=\"2\">
    <tr>
    <td>Oprettet af :</td>
    <td>E-mail adresse :</td>
    <td>Telefon nummer : </td>
    <td>Sælges/beskrivelse : </td>
    <td>Sidste salgsdag : </td>
    </tr>
<%
while NOT rs.eof
%>
    <tr>
    <td><%= rs(\"Navn\")%></td>
    <td><%= rs(\"Email\") %></td>
    <td><%= rs(\"Tlf\") %></td>
    <td><%= rs(\"Sb\") %></td>
    <td><%= rs(\"nedlagges\") %></td>
    </tr>
<%
rs.movenext
wend
%>
</table>
<form action=\"visside.asp\" method=\"post\">
<br>
opret et indlæg :<br>
Navn : <input type=\"text\" name=\"navn\"><br>
Email : <input type=\"text\" name=\"email\"><br>
Telefonnummer : <input type=\"text\" name=\"tlf\"><br>
Sælges/Beskrivelse : <br>
<textarea name=\"beskrivelse\"></textarea><br>
hvor længe : <input type=\"text\" name=\"nedlagges\"><br>
<input type=\"submit\" value=\"Indsend\">
</form>
<%
rs.Close
set rs = nothing
objConn.Close
set objConn = Nothing
%>
</body>
</html>
****************
databasen har jeg sendt, og begge filer skal ligge i samme bibl.
Håber du kan bruge det, hvis der er fejl må du lige råbe op.

Det virker fint - tak skal du ha` :-)

my pleasure :)

Hej kasseper

Lige nu lægger den nye indlæg nederst i tabellen.

Kan man ikke gøre så de nye indlæg kommer øverst i tabellen?

Joohhh, det kan jeg da...
Altså rent database mæssigt, kan man ikke lige gøre det, men når du ser dem på siden, kan du bare erstatte denne linie :
SQL = \"select * from mytable where oprettet <= #\" & date() & \"#\"
   
Med

SQL = \"select * from mytable where oprettet <= #\" & date() & \"# order by oprettet\"

Endnu engang tak!

selv tak