hente dato til formular automatisk
Hejsa...Jeg har en formular hvor der bla. skal tastes en dato ind..
Er der nogen der ved hvordan man får den til at stå der automatisk når man kommer ind på siden.
Det skal bare være datoen..
Her er koden på siden:
-------------------
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Salgsliste</title>
</head>
<body>
<%
mode=request.querystring("m")
if mode="gem" then
sti = "billeder/"
Set Upload = Server.CreateObject("Persits.Upload")
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/fpdb/sha.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
Upload.OverwriteFiles = False
Upload.Save (Server.Mappath(sti))
fil1 = ""
fil2 = ""
fil3 = ""
If Not Upload.Files("FILE1") Is Nothing Then fil1 = sti & Upload.Files("FILE1").FileName
If Not Upload.Files("FILE2") Is Nothing Then fil2 = sti & Upload.Files("FILE2").FileName
If Not Upload.Files("FILE3") Is Nothing Then fil3 = sti & Upload.Files("FILE3").FileName
SQL="insert into tblBILSALG ("
SQL = SQL & "oprettet, [Mærke], [Type], [Brændstof], Farve, [Årgang], Kilometer, Pris, Synet, Beskrivelse, [Billede 1], [Billede 2], [Billede 3])"
SQL = SQL & " values ("
SQL = SQL & "'" & Upload.form("oprettet") & "', "
SQL = SQL & "'" & Upload.form("Mærke") & "', "
SQL = SQL & "'" & Upload.form("Type") & "', "
SQL = SQL & "'" & Upload.form("Brændstof") & "', "
SQL = SQL & "'" & Upload.form("Farve") & "', "
SQL = SQL & "'" & Upload.form("Årgang") & "', "
SQL = SQL & "'" & Upload.form("Kilometer") & "', "
SQL = SQL & "'" & Upload.form("Pris") & "', "
SQL = SQL & "'" & Upload.form("Synet") & "', "
SQL = SQL & "'" & Upload.form("Beskrivelse") & "', "
SQL = SQL & "'" & fil1 & "', "
SQL = SQL & "'" & fil2 & "', "
SQL = SQL & "'" & fil3 & "' "
SQL = SQL & ")"
Conn.Execute(SQL)
%> <meta http-equiv="refresh" content="2;URL=lukker.asp">
<font color="#FF0000">Dine ændringer er nu gemt.</font><b>
<% else %>
</b>
<div align="center">
<table border="0" width="85%" id="table1">
<tr>
<td><b>
<form method="POST" action="opretsalg.asp?m=gem" enctype="multipart/form-data">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="44" id="table2">
<tr>
<td height="22">Oprettet:</td>
<td height="22"><input type="text" name="oprettet" size="50"></td>
</tr>
<tr>
<td height="22">Mærke:</td>
<td height="22"><b>
<input type="text" name="Mærke" size="50"></b></td>
</tr>
<tr>
<td height="22">Model:</td>
<td height="22"><b>
<input type="text" name="model" size="50"></b></td>
</tr>
<tr>
<td height="22">Type:</td>
<td height="22"><b>
<input type="text" name="Type" size="50"></b></td>
</tr>
<tr>
<td height="22">Brændstof:</td>
<td height="22"><b>
<input type="text" name="Brændstof" size="50"></b></td>
</tr>
<tr>
<td height="22">Farve:</td>
<td height="22"><b>
<input type="text" name="Farve" size="50"></b></td>
</tr>
<tr>
<td height="22">Årgang:</td>
<td height="22"><b>
<input type="text" name="Årgang" size="50"></b></td>
</tr>
<tr>
<td height="22">Kilometer:</td>
<td height="22"><b>
<input type="text" name="Kilometer" size="50"></b></td>
</tr>
<tr>
<td height="22">Pris:</td>
<td height="22"><b>
<input type="text" name="Pris" size="50"></b></td>
</tr>
<tr>
<td height="22">Synet:</td>
<td height="22"><b>
<input type="text" name="synet" size="50"></b></td>
</tr>
<tr>
<td height="22" valign="top">Beskrivelse:</td>
<td height="22"><textarea rows="8" name="Beskrivelse" cols="40"></textarea></td>
</tr>
<tr>
<td height="22">Billede 1:</td>
<td height="22"><INPUT TYPE="FILE" SIZE="35" NAME="FILE1"></td>
</tr>
<tr>
<td height="22">Billede 2:</td>
<td height="22"><INPUT TYPE="FILE" SIZE="35" NAME="FILE2"></td>
</tr>
<tr>
<td height="22">Billede 3:</td>
<td height="22"><INPUT TYPE="FILE" SIZE="35" NAME="FILE3"></td>
</tr>
</table>
</center>
</div>
<p align="center">
<br>
<input type="submit" value="Gem" name="gem">
</p>
</form>
</b>
<% end if %>
<p> </td>
</tr>
</table>
</div>
</body>
</html>
