Nå den nye record er gemt gå videre til test.asp med ID
Så jeg derved kan hente nogle af de gemte oplysninger frem på test.asp af de oplysninger som jeg ønsker men fra den record jeg lige har gemt.CODE:
<!--#include file="common.asp"-->
<%
Dim strMode, strFejl, strnavn, strsenderEmail, strtelefon, strfaxen, strtid, strforsporgsel, strbody, strfirma, strFnr, rsOpret
strMode = Request.QueryString("mode")
If Request.Form("Gem") <> "" Then
strFejl = ""
strfirma = Trim(Request.Form("fn"))
strnavn = Trim(Request.Form("name"))
strsenderEmail = Trim(Request.Form("email"))
strtelefon = Trim(Request.Form("phone"))
strfaxen = Trim(Request.Form("fax"))
strtid = Trim(Request.Form("time"))
strforsporgsel = Trim(Request.Form("fspg"))
strbody = Trim(Request.Form("body"))
strFnr = "F" & Right(CLng(1000000 + [ID]), 6)
If Request.Form("lineBreak") = "true" Then
strbody = Replace(strbody, vbCrLf, "<br>")
End If
If Len(strnavn) = 0 Then
strFejl = "<li>Du skal skrive dit Navn eller navnet på Kontaktpersonen!</li>"
ElseIf validateTlf(strtelefon) = 0 Then
strFejl = "<li>Du skal skrive et Telefon nr. i korrekt format!</li>"
ElseIf Len(strforsporgsel) = 0 Then
strFejl = "<li>Du skal skrive en titel på din Forespørgsel!</li>"
ElseIf Len(strbody) = 0 Then
strFejl = "<li>Du skal skrive en Tekst på din Forespørgsel!</li>"
End If
If Len(strFejl) = 0 Then
Set rsOpret = Server.CreateObject("ADODB.Recordset")
rsOpret.open "FSP", cn, 3, 3
rsOpret.AddNew
rsOpret("Fid") = Server.HTMLEncode(strFnr)
rsOpret("Firma") = Server.HTMLEncode(strfirma)
rsOpret("Kontakt") = Server.HTMLEncode(strnavn)
rsOpret("Email") = Server.HTMLEncode(strsenderEmail)
rsOpret("TLF") = Server.HTMLEncode(strtelefon)
rsOpret("FAX") = Server.HTMLEncode(strfaxen)
rsOpret("TID") = Server.HTMLEncode(strtid)
rsOpret("Foresporgsel") = Server.HTMLEncode(strforsporgsel)
rsOpret("Tekst") = Server.HTMLEncode(strbody)
rsOpret("Dato") = Now()
rsOpret.Update
rsOpret.close
set rsOpret = nothing
Else
strFejl = "<p><ul><font color=#FF0000>" & strFejl & "</font></ul></p>"
strMode = "add"
End If
End If
cn.close
set cn = nothing
%>
<html>
<head>
<title>emailform</title>
<link rel="StyleSheet" href="../inklude/style.css" type="text/css">
</head>
<body>
<%
Select Case strMode
Case "add"
%>
<form method="post" action="sendf.asp">
Udfyld venligst Skemaet/Formen, ang. Deres Forespørgsel. Og vi vil kontakte dem hurtigst muligt.
<br><br>
<%=strFejl%><br>
evt. Firma Navn:<br>
<input type="text" size="25" name="fn" value="<%=strfirma%>"><br>
Kontakt Person:<br>
<input type="text" size="25" name="name" value="<%=strnavn%>"><br>
Deres Mail:<br>
<input type="text" size="25" name="email" value="<%=strsenderEmail%>"><br><br>
Tlf. Nr.: (xx-xxxxxx)<br>
<input type="text" size="25" name="phone" value="<%=strtelefon%>"><br>
Fax. Nr.: (xx-xxxxxx)<br>
<input type="text" size="25" name="fax" value="<%=strfaxen%>"><br>
Bedste Træffe Tid:<br>
<select name="time" size="1">
<option value="Ligemeget">Ligemeget
<option value="9-10">9-10
<option value="10-11">10-11
<option value="11-12">11-12
<option value="12-13">12-13
<option value="13-14">13-14
<option value="14-15">14-15
<option value="15-16">15-16
<option value="16-17">16-17
</select>
<br><br><br>
Forespørgsel :<br>
<input type="text" size="25" name="fspg" value="<%=strforsporgsel%>"><br>
Kort Beskrivelse<br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"><%=strbody%></textarea>
<input name="lineBreak" type="hidden" id="lineBreak" value="true">
<br>
<input type="submit" value=" Send " name="Gem">
</form>
<%
case else
Response.Write "<font face=verdana size=2>Hvis du har ønsker evt til konfirmationer mm så kan du lave en online forespørgsel til os<br><br>"
strAddLine = "<a href=sendf.asp?mode=add><strong><font face=verdana size=2>Skriv en forespørgsel til os!</font></strong></a>"
Response.Write strAddLine
End select
%>
</body>
</html>
<script language="VBScript" runat="Server">
Function validateTlf(strtelefon)
validateTlf = True
If Len(strtelefon) < 8 Then
validateTlf = False
End If
If InStr(1, strtelefon, "-", 1) < 2 Then
validateTlf = False
End If
pos = InStr(1, strtelefon, "-", 1)
If pos < 2 Then
validateTlf = False
Else
pos = InStr(pos+1, strtelefon, "-")
If pos > 0 Then
validateTlf = False
End If
End If
End Function
</script>
