på sidan som lägger till ska du byta:
RecSet("datum") = date
RecSet("tid") = time
mot:
RecSet("datum") = DateAdd("h", 6, Date)
RecSet("tid") = DateAdd("h", 6, Time)
Frågan#1
Efter mycket hjälp, tack så mycket, har jag lyckats göra min sida snabbare. Men nu till nästa problem, sidan ligger på en server i USA och visar då 6 timmar fel! Hur gör jag för att lägga till sex timmar, på sidan som jag skriver in allt, i databasen eller på sidan som visar allt?
sidan som visar:
<% Session.LCID = 1053 %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas/databasen.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM teknik WHERE id = " & Request.Querystring("id")
SQL = SQL & " ORDER BY rubrik"
RecSet.Open (SQL), Connect, 0, 1
%>
<html>
<head>
<title>teknik</title>
<link rel="stylesheet" href="stylee/text.css" type="text/css">
</head>
<body bgcolor="#ffffff">
<table width="420" border="0" cellspacing="1" cellpadding="5" bgcolor="#EFEFEF">
<tr>
<% Response.Write ""&_
"<td bgcolor=""#F7F7F7"" width=""210""><b>Teknik</b> / "&RecSet("kategori")&"</td>"&_
"<td bgcolor=""#ffffff"" rowspan=""3"" valign=""top"" width=""210""><img src="&RecSet("bild")&"></td>"%>
</tr>
<tr>
<% Response.Write ""&_
"<td bgcolor=""#ffffff""><b>"& RecSet("rubrik") &"</b><br>"&_
""& Replace(RecSet("innehall"),vbCrLf,"<br>") &"</td>" %>
</tr>
<tr>
<% Response.Write ""&_
"<td bgcolor=""#ffffff"">Tillverkare: <a href=""http://www."&RecSet("lank_tillv_www")&""" target=""_blank"">"&RecSet("lank_tillv")&"</a><br>"&_
"Köp: <a href=""http://www."&RecSet("lank_kop_www")&""" target=""_blank"">"& RecSet("lank_kop")&"</a></td>"%>
</tr>
<tr align="right">
<% Response.Write ""&_
"<td bgcolor=""#ffffff"" colspan=""2"" class=""litentext"">Skriven av <a href=""mailto:"&RecSet("epost")&"?subject="&RecSet("rubrik")&" "">"&RecSet("av")&"</a> "&RecSet("datum")&" "&RecSet("tid")&"</td>"%>
</tr>
</table>
</body>
</html>
<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
sidan där jag skriver in:
<html>
<head>
<title>Skriv in nyheter</title>
<link rel="stylesheet" href="../stylee/text.css" type="text/css">
</head>
<body bgcolor="#ffffff">
<form name="form1" method="post" action="add.asp">
<table width="800" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><b>Av:</b></td>
<td>
<select name="av">
<option value="Sysop">teknik</option>
</select>
</td>
</tr>
<tr>
<td><b>E-post:</b></td>
<td><b>
<select name="epost">
<option value="sysop@lootec.com">teknik@lootec.com</option>
</select>
</b></td>
</tr>
<tr>
<td><b>Rubrik:</b></td>
<td><b>
<input type="text" name="rubrik">
</b></td>
</tr>
<tr>
<td valign="top"><b>Artikel:</b></td>
<td>
<textarea name="innehall" wrap="virtual" cols="50" rows="10"></textarea>
</td>
</tr>
<tr>
<td><b>Länk tillverkare </b></td>
<td>
<input type="text" name="lank_tillv">
www.
<input type="text" name="lank_tillv_www">
</td>
</tr>
<tr>
<td><b>Länk köp</b></td>
<td>
<input type="text" name="lank_kop">
www.
<input type="text" name="lank_kop_www">
</td>
</tr>
<tr>
<td>
<input type="submit" name="Skicka" value="Lägg till">
</td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
sidan som lägger till i databasen:
<% Session.LCID = 1053 %>
<!-- #include file = "../adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../databas/databasen.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From teknik"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("av") = Request.Form("av")
RecSet("epost") = Request.Form("epost")
RecSet("kategori") = Request.Form("kategori")
RecSet("rubrik") = Request.Form("rubrik")
RecSet("innehall") = Request.Form("innehall")
RecSet("bild") = Request.Form("bild")
RecSet("lank_tillv") = Request.Form("lank_tillv")
RecSet("lank_tillv_www") = Request.Form("lank_tillv_www")
RecSet("lank_kop") = Request.Form("lank_kop")
RecSet("lank_kop_www") = Request.Form("lank_kop_www")
RecSet("datum") = date
RecSet("tid") = time
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
Response.Redirect "admin.asp"
%>