Hej igen Teamdev
Jeg vedlægger også kildekoden til oprettelses formularen:
<%
' FP_ASP ASP genereret automatisk af en FrontPage-komponent. Undlad at redigere.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_conn.Open Application("help_desk_ConnectionString")
FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."
fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_rs.AddNew
FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
Dim arFormFields0(8)
Dim arFormDBFields0(8)
Dim arFormValues0(8)
arFormFields0(0) = "Problem"
arFormDBFields0(0) = "Problem"
arFormValues0(0) = Request("Problem")
arFormFields0(1) = "Problemstilling"
arFormDBFields0(1) = "Problemstilling"
arFormValues0(1) = Request("Problemstilling")
arFormFields0(2) = "software"
arFormDBFields0(2) = "software"
arFormValues0(2) = Request("software")
arFormFields0(3) = "Placering"
arFormDBFields0(3) = "Placering"
arFormValues0(3) = Request("Placering")
arFormFields0(4) = "Type"
arFormDBFields0(4) = "Type"
arFormValues0(4) = Request("Type")
arFormFields0(5) = "Initialer"
arFormDBFields0(5) = "Initialer"
arFormValues0(5) = Request("Initialer")
arFormFields0(6) = "Priotet"
arFormDBFields0(6) = "Priotet"
arFormValues0(6) = Request("Priotet")
arFormFields0(7) = "Status"
arFormDBFields0(7) = "Status"
arFormValues0(7) = Request("Status")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Navn_på_fjerncomputer"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Webbrowsertype"
End If
FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Brugernavn"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "sub_bek.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
<% Response.Buffer = True %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opret Helpdesk kald</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" align=left>
<tr>
<td width="100%">
<p align="center"><b><font size="6">Helpdesk Rapportering For Telia
Networks</font></b></td>
</tr>
</table>
<p>
<br clear="all">
<hr>
<p>
<form METHOD="POST" action="--WEBBOT-SELF--" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" U-ASP-Include-Url="_fpclass/fpdbform.inc" S-DataConnection="help_desk" S-RecordSource="Resultater" U-Database-URL="fpdb/help_desk.mdb" U-Confirmation-Url="sub_bek.asp" S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Navn_på_fjerncomputer Webbrowsertype Tidsstempel Brugernavn" S-Form-Fields="Problem Problemstilling software Placering Type Initialer Session Tidsstempel2 Priotet Status" S-Form-DBFields="Problem Problemstilling software Placering Type Initialer Session Tidsstempel2 Priotet Status" -->
<p style="margin-top: -2; margin-bottom: -2">Her er det muligt for Telia
ansatte, at rapportere fejl til Helpdesk. Udfyld de nedenstående felter korrekt,
og vi vil kigge på dit problem, så hurtigt som muligt.</p>
<p style="margin-top: -2; margin-bottom: -2"> </p>
<p style="margin-top: -2; margin-bottom: -2"><b>Bruger Initialer </b><br>
<!--webbot bot="Validation" s-display-name="Initialer" s-data-type="String" b-value-required="False" i-maximum-length="255" --><input type="TEXT" name="Initialer" size="17" value="" maxlength="255"> </p>
<p style="margin-top: -2; margin-bottom: -2"><b>Placering (</b>Lokation f.eks.
135 E2 syd lokale 2098)<br>
<!--webbot bot="Validation" s-display-name="Placering" s-data-type="String" b-value-required="False" i-maximum-length="255" --><input type="TEXT" name="Placering" size="17" value="" maxlength="255"></p>
<p style="margin-top: -2; margin-bottom: -2"><b>Hvilken type Henvendelse</b><br>
<select size="1" name="Type"> <option value="Bestilling">Bestilling</option>
<option value="Problem" selected>Problem</option>
<option value="Ændring">Ændring</option>
<option value="Rykker">Rykker</option>
</select>
</p>
<p style="margin-top: -2; margin-bottom:-2"><b>Hvis du har valgt problem /
ændring, hvad omhandler det:</b><br>
<select size="1" name="Problem"> <option value="Hardware" selected>Hardware</option>
<option value="Software">Software</option>
<option value="Netværk">Netværk</option>
<option value="Kopimaskine">Kopimaskine</option>
<option value="Print">Print</option>
<option value="Hjemmearbejdsplads">Hjemmearbejdsplads</option>
<option value="Mail">Mail</option>
<option value="Rettigheder">Rettigheder</option>
</select>
<br>
</p>
<p style="margin-top: -2; margin-bottom:-2"><b>
Hvis det omhandler software, så vælg her:</b><br>
<select size="1" name="software">
<option selected>Vælg her</option>
<option value="Windows XP">Windows XP</option>
<option value="Outlook">Outlook</option>
<option value="Windows 2000">Windows 2000</option>
<option value="Windows NT">Windows NT</option>
<option value="Andet">Andet</option>
</select>
</p>
<p style="margin-top: -2; margin-bottom: -2"><b>
</b></p>
<p style="margin-top: -2; margin-bottom: -2"><b>
<a target="_blank" href="fil_gem.htm">Hvis du vil vedhæfte filer, klik her</a></b></p>
<p style="margin-top: -2; margin-bottom: -2"> </p>
<p style="margin-top: -2; margin-bottom: -2"><b>Kommentar til Henvendelsen</b></p>
<p style="margin-top: -2; margin-bottom: -2"><textarea rows="6" name="Problemstilling" cols="57"></textarea><br>
</p>
<p style="margin-top: -2; margin-bottom: -2"><b>Priotet</b><br>
<select size="1" name="Priotet"> <option value="Lav" selected>Lav</option>
<option value="Mellem">Mellem</option>
<option value="Høj">Høj</option>
</select> <a href="
http://www.facility.dk/"><img border="0" src="FACILITY_FV_1-transperent.gif" width="327" height="58" align="right"></a><a href="
http://www.telianet.dk"><img border="0" src="telia-logo%20transperent.gif" style="position: absolute; left: 7; top: -1" width="115" height="48"></a><br>
</p>
<p style="margin-top: -2; margin-bottom: -2"><input type="submit" value=" OK "><input type="reset" value=" Nulstil "></p>
<p style="margin-top: -2; margin-bottom: -2"> </p>
<input type="hidden" name="Status" value="1-Ikke behandlet">
<input type="hidden" name="Tidsstempel2" value="<%= now() %>">
<input type="hidden" name="Session" value="<%= Session.SessionID %>">
</form>
<p style="margin-top: -2; margin-bottom: -2" align="center"> </p>
</body>
</html>