indsætter 2 poster
Følgende script skal håndtere en submit fra en anden side. Men den sætter posten ind to gange (en gang imellem). Jeg fatter minus:<%@Language=VBScript%>
<%Option Explicit%>
<%Response.Expires=-1000
Response.CacheControl="no-cache"%>
<!-- #include file="../conn.asp" -->
<!--#include file="protect.asp"-->
<html>
<head>
<title>Gemmer...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../stylesheet.css" rel="stylesheet" type="text/css">
</head>
<body class="admintekst">
Gemmer...vent et øjeblik
<%
Dim Godkendt
Godkendt = request.form("WebGodk")
IF Godkendt = "1" Then
Godkendt = 1
else
Godkendt = 0
end if
IF request.form("WebPerm") = "1" Then
Dim StartD,SlutD
StartD = "2000-01-01"
SlutD = "2100-01-01"
else
StartD = request.form("WebStart")
SlutD = request.form("WebSlut")
end if
Conn.execute("Insert into WebPage (WebType,StartDato,SlutDato,Webpage,Published,WebContent,VersionID,Godkendt,Publisher,DomainID,Appetit,Image,MenuID,UndermenuID) VALUES ("&Request.form("WebType")&",'"&StartD&"','"&SlutD&"','"&request.form("WebNavn")&"','"&Date()&"','"&request.form("txtContent")&"',"&session("VersionID")&","&Godkendt&","&session("UserID")&","&session("DomainID")&",'"&request.form("WebAppetit")&"','"&request.form("WebImage")&"','"&request.form("WebmenuID")&"','"&request.form("WebundermenuID")&"')")
response.write("<script>window.opener.document.location.href='opretwebpage.asp?WebNavn="&request.form("WebNavn")&"';window.close();</script>")
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
