Edit Recordset istedet for Addnew!
Jeg har denne side her hvor den skriver informationerne ind i DB'en... Informationerne kommer fra den forgående side, hvor jeg indtaster en masse ind.... så vil jeg gerne at jeg ville kunne hente det ing igen i en lignende side, og ændrer tingene og gemme det igen....Men kan jeg sende til samme gemmeside? Det er MEGET vigtigt at selve ID'en IKKE ændrer sig!
Her er den side der gemmer i selve DB'en:
<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="islogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>
<body>
<%
Session("LeveringsAdresse") = Request.form("Adresser")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN
Dim CustomerText
Dim LeveringsadresserNavnText
Dim Leveringsadresser1Text
Dim Leveringsadresser2Text
Dim LeveringsadresserPostnummerText
Dim LeveringsadresserByText
Dim LeveringsadresserLandText
Dim LeveringsadresserNotatText
CustomerText = Session("Customer")
LeveringsadresserNavnText = Request.form("AdresseNavn")
Leveringsadresser1Text = Request.form("Adresse1")
Leveringsadresser2Text = Request.form("Adresse2")
LeveringsadresserPostnummerText = Request.form("AdressePostnummer")
LeveringsadresserByText = Request.form("AdresseBy")
LeveringsadresserLandText = Request.form("AdresseLand")
LeveringsadresserNotatText = Request.form("AdresseNotat")
strSQL = "Insert into adresse ("
strSQL = strSQL & "Customer, "
strSQL = strSQL & "AdresseNavn, "
strSQL = strSQL & "Adresse1, "
strSQL = strSQL & "Adresse2, "
strSQL = strSQL & "AdressePostnummer, "
strSQL = strSQL & "AdresseBy, "
strSQL = strSQL & "AdresseLand, "
strSQL = strSQL & "AdresseNote) "
strSQL = strSQL & "values( "
strSQL = strSQL & CustomerText & ", "
strSQL = strSQL & "'" & LeveringsadresserNavnText &"', "
strSQL = strSQL & "'" & Leveringsadresser1Text &"', "
strSQL = strSQL & "'" & Leveringsadresser2Text &"', "
strSQL = strSQL & "'" & LeveringsadresserPostnummerText &"', "
strSQL = strSQL & "'" & LeveringsadresserByText &"', "
strSQL = strSQL & "'" & LeveringsadresserLandText &"', "
strSQL = strSQL & "'" & LeveringsadresserNotatText &"')"
response.write strSQL
Conn.Execute(strSQL)
set rsCreateOrder = Nothing
set Conn = Nothing
Response.Redirect "adresseliste.asp"
%>
</body>
</html>
