Her er det jeg flg. har lavet, kan stadig ikke få db-delen til at virke.
Nå, men husk du altid kan maile mig vis du har spørgsmål eller andet du vil spørge mig om. (E-mail adr.: peter@overload.dk)
PS: Jeg har først haft mulighed for at poste det her nu efter min skærm var gået i stykker - det går bare godt her for tiden... (anti)
-----DEFAULT.ASP------------------
<%
mode = request("mode")
if mode = "submit" then
domreg = "**** Please DO NOT remove ANYTHING between this line and cut-here ****"& vbcrlf & vbcrlf
domreg = domreg & "DK Domain Version Number: 2.00" & vbcrlf & vbcrlf
domreg = domreg & "**************** Only for NEW registrations under DK *****************" & vbcrlf
domreg = domreg & "************** Please read instruction section I and II **************" & vbcrlf & vbcrlf
domreg = domreg & "Authentication" & vbcrlf
domreg = domreg & "0a. FIL Handle.................: {" & (request.Form("fil_handle")) & "}" & vbcrlf
domreg = domreg & "0b. Reference..................: " & vbcrlf
domreg = domreg & "0c. Form signed by applicant...: [X]" & vbcrlf & vbcrlf
domreg = domreg & "Domain Name" & vbcrlf
domreg = domreg & "1a. Complete Domain Name.......: {" & (request.Form("domain_name")) & "}" & vbcrlf & vbcrlf
domreg = domreg & "Contact Person in The Organization Using The Domain Name" & vbcrlf
domreg = domreg & "2a. NIC Handle (if known)......:" & vbcrlf
domreg = domreg & "2b. Name.......................: {" & (request.Form("contact_person")) & "}" & vbcrlf
domreg = domreg & "2c. Organization Name..........: {" & (request.Form("organization_name")) & "}" & vbcrlf
domreg = domreg & "2d. Street Address.............: {" & (request.Form("street_adress")) & "}" & vbcrlf
domreg = domreg & "2e. Postal Code/City...........: {" & (request.Form("postalcode_city")) & "}" & vbcrlf
domreg = domreg & "2f. Country....................: {" & (request.Form("country")) & "}" & vbcrlf
domreg = domreg & "2g. Phone Number...............: {" & (request.Form("phone")) & "}" & vbcrlf
domreg = domreg & "2h. Fax Number (if any)........: {" & (request.Form("fax")) & "}" & vbcrlf
domreg = domreg & "2i. E-Mailbox (if any).........: {" & (request.Form("email")) & "}" & vbcrlf & vbcrlf
domreg = domreg & "Contact Person for Technical Issues in The Organization" & vbcrlf
domreg = domreg & "3a. RIPE Handle (if known).....: {" & (request.Form("technical_ripe_handle")) & "}" & vbcrlf
domreg = domreg & "3b. Name.......................: " & vbcrlf
domreg = domreg & "3c. Organization Name..........: " & vbcrlf
domreg = domreg & "3d. Street Address.............: " & vbcrlf
domreg = domreg & "3e. Postal Code/City...........: " & vbcrlf
domreg = domreg & "3f. Country....................: " & vbcrlf
domreg = domreg & "3g. Phone Number...............: " & vbcrlf
domreg = domreg & "3h. Fax Number (if any)........: " & vbcrlf
domreg = domreg & "3i. E-Mailbox (if any).........: " & vbcrlf & vbcrlf
domreg = domreg & "Billing Contact" & vbcrlf
domreg = domreg & "4a. RIPE Handle (if known).....: {" & (request.Form("billing_ripe_handle")) & "}" & vbcrlf
domreg = domreg & "4b. Name.......................: " & vbcrlf
domreg = domreg & "3c. Organization Name..........: " & vbcrlf
domreg = domreg & "3d. Street Address.............: " & vbcrlf
domreg = domreg & "3e. Postal Code/City...........: " & vbcrlf
domreg = domreg & "3f. Country....................: " & vbcrlf
domreg = domreg & "3g. Phone Number...............: " & vbcrlf
domreg = domreg & "3h. Fax Number (if any)........: " & vbcrlf
domreg = domreg & "3i. E-Mailbox (if any).........: " & vbcrlf & vbcrlf
domreg = domreg & "Person Administrating the Primary Name Server" & vbcrlf
domreg = domreg & "4a. RIPE Handle (if known).....: {" & (request.Form("nameserver_ripe_handle")) & "}" & vbcrlf
domreg = domreg & "4b. Name.......................: " & vbcrlf
domreg = domreg & "3c. Organization Name..........: " & vbcrlf
domreg = domreg & "3d. Street Address.............: " & vbcrlf
domreg = domreg & "3e. Postal Code/City...........: " & vbcrlf
domreg = domreg & "3f. Country....................: " & vbcrlf
domreg = domreg & "3g. Phone Number...............: " & vbcrlf
domreg = domreg & "3h. Fax Number (if any)........: " & vbcrlf
domreg = domreg & "3i. E-Mailbox (if any).........: " & vbcrlf & vbcrlf
domreg = domreg & "Primary Name Server (required)" & vbcrlf
domreg = domreg & "6a. Primary Server Hostname.....: {" & (request.Form("primary_name_server_hostname")) & "}" & vbcrlf
domreg = domreg & "6b. Primary Server IP-number....: {" & (request.Form("primary_name_server_ipnumber")) & "}" & vbcrlf & vbcrlf
domreg = domreg & "Secondary Name Server(s) (required)" & vbcrlf
domreg = domreg & "7a. Secondary Server Hostname...: {" & (request.Form("secondary_name_server_hostname")) & "}" & vbcrlf
domreg = domreg & "7b. Secondary Server IP-number..: {" & (request.Form("secondary_name_server_ipnumber")) & "}" & vbcrlf & vbcrlf
domreg = domreg & "---cut-here---CUT-HERE---Cut-Here---cut here---CUT HERE---Cut Here---" & vbcrlf
Function DBFix(tempString)
tempString = Replace(Trim(tempString), "'", "''")
tempString = Replace(tempString, "|", "")
DBFix = tempString
End Function
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "mail.overload.dk"
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "peter@overload.dk"
JMail.Subject = "New registration under DK-domain from peter@rbk.dk"
JMail.AddRecipient ("peter@overload.dk")
JMail.Body = domreg
JMail.Priority = 3
if NOT JMail.execute then
response.write("<font face=""verdana,ariel"" color=""#ababab"" size=2><b>ERROR MESSAGE 1:</b><br>" & JMail.ErrorMessage & "<p>" & vbcrlf)
response.write("<b>ERROR MESSAGE 2:</b><br>" & JMail.ErrorSource & "<p>" & vbcrlf)
response.write("<b>LOG:</b><br>" & JMail.Log & "<br></font>" & vbcrlf)
else
set rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("/database/db.mdb")
rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Insert into Database (Indhold) VALUE (domreg)"
rs.Execute(Sql)
rs.Close
response.redirect "default.asp?mode=submitok"
end if
end if
if mode = "" then %>
<HTML>
<HEAD>
<TITLE>RBK DomainOrder</TITLE>
</HEAD>
<BODY topmargin=10 marginheight=10 leftmargin=10 marginwidth=10 bgcolor="#ffffff">
<hr>
<div align="center"><b><font style="font-size: 12pt;">Domæne Registrering</font></b></div>
<hr>
<p>
<form method="post" action="default.asp?mode=submit">
<div align="center"><table cellspacing="2" cellpadding="2" border="0">
<tr>
<td align="right">FIL Handle :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="fil_handle" value="FIL-09" size="40" readonly></td>
</tr>
<tr>
<td align="right"><b>Complete Domain Name :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="domain_name" size="40"></td>
</tr>
<tr>
<td align="right"><b>Contact Person :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="contact_person" size="40"></td>
</tr>
<tr>
<td align="right"><b>Organization Name :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="organization_name" size="40"></td>
</tr>
<tr>
<td align="right"><b>Street Adress :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="street_adress" size="40"></td>
</tr>
<tr>
<td align="right"><b>Postal Code/City :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="postalcode_city" size="40"></td>
</tr>
<tr>
<td align="right">Country :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="country" value="DK" size="40" readonly></td>
</tr>
<tr>
<td align="right"><b>Phone Number :</b></td>
<td width="10" align="right"> </td>
<td><input type="text" name="phone" size="40"></td>
</tr>
<tr>
<td align="right">Fax Number :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="fax" size="40"></td>
</tr>
<tr>
<td align="right">E-Mail Adress :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="email" size="40"></td>
</tr>
<tr>
<td align="right">Technical Issues - RIPE Handle :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="technical_ripe_handle" value="IH427-RIPE" size="40" readonly></td>
</tr>
<tr>
<td align="right">Billing Contact - RIPE Handle</td>
<td width="10" align="right"> </td>
<td><input type="text" name="billing_ripe_handle" value="FT527-RIPE" size="40" readonly></td>
</tr>
<tr>
<td align="right">Name Server - RIPE Handle :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="nameserver_ripe_handle" value="IH427-RIPE" size="40" readonly></td>
</tr>
<tr>
<td align="right">Primary Name Server Hostname :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="primary_name_server_hostname" value="ns.ithouse.dk" size="40" readonly></td>
</tr>
<tr>
<td align="right">Primary Name Server IP-number :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="primary_name_server_ipnumber" value="194.234.48.2" size="40" readonly></td>
</tr>
<tr>
<td align="right">Secondary Name Server Hostname :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="secondary_name_server_hostname" value="mail.ithouse.dk" size="40" readonly></td>
</tr>
<tr>
<td align="right">Secondary Name Server IP-number :</td>
<td width="10" align="right"> </td>
<td><input type="text" name="secondary_name_server_ipnumber" value="194.234.48.3" size="40" readonly></td>
</tr>
<input type="submit" value="Send">
</table></div>
</form>
</BODY>
</HTML>
<% end if
if mode = "submitok" then %>
Done
<%
response.end
end if
%>
--DEFAULT.ASP END--------------
Håber det kan bruges, undskyld vente tiden - men som du sikkert har forstået min min mail's at der har været problemer og desuden at jeg har haft den del tidsmangel efter jeg er startet i skole i gen :)
Snakkes!
Venlig hilsen
Peter Loft Jensen
peter@overload.dk
