Hentning af ID og gem det med strFnr funktion
jeg har denne funktion i min code:strFnr = "F" & Right(CLng(1000000 + [ID]), 6)
den skulle hente den id som den er nået til og gemme det som F000001 hvis der er id 1 altså den første !!
Men jeg kan kun få den til at gemme F000000 og det er i 6 recorder nu altså fra ID 1 - 6 !!!
min code er:
<!--#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>
Hvad er fejlen nogle der kan hjælpe !??
