---
title: "Svensk tid på server i USA"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/55073-svensk-tid-på-server-i-usa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "electronic"
published: "2002-10-03T23:32:25.000Z"
updated: "2002-10-03T23:48:32.000Z"
replies: 2
views: 242
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/55073-svensk-tid-på-server-i-usa"
---

# Svensk tid på server i USA

## #1 — electronic, 2002-10-03T23:32Z

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&ouml;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&auml;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&auml;nk k&ouml;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&auml;gg till"\>
\</td\>
\<td\>&nbsp;\</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"
%\>

Permalänk: https://www.webforum.nu/p/55073

## #2 — Poffe, 2002-10-03T23:34Z

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)

Permalänk: https://www.webforum.nu/p/809941

## #3 — electronic, 2002-10-03T23:48Z

Tackar!

Klockrent!

Permalänk: https://www.webforum.nu/p/809944

---

Tråden på webben: https://www.webforum.nu/amne/asp/55073-svensk-tid-på-server-i-usa
