25. maj 2001 - 18:37
Der er
11 kommentarer og
1 løsning
Indsætte tekst i databasen virker ik !
Det er sikkert her der er noget galt ??
Den siger ik noget med fejl, men \"Siden kunne ik findes\" :( håber der er nogen som vil hjælpe :o)
<%
If Trim(Request(\"navn\")) > \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
Conn.Execute \"INSERT INTO jwringetoner (navn,email,tonenavn,tempo,rnokia,rsiemens,rericsson) VALUES (\'\"&request.form(\"navn\")&\"\',\'\"&request.form(\"email\")&\"\',\'\"&request.form(\"tonenavn\")&\"\',\'\"&request.form(\"tempo\")&\"\',\'\"&request.form(\"rnokia\")&\"\',\'\"&request.form(\"rsiemens\")&\"\',\'\"&request.form(\"rericsson\")&\"\')\"
Conn.Close: Set Conn = Nothing
Response.Write \"<h1>Tak for din ringetone, din ringetone er blevet
sat til at blive accept hos webmasteren!</h1>\"
End IF
%>
Scripten :o)
<html>
<head>
<title>JWRingetoner 1.0 ASP</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"styles.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#006699\" vlink=\"#006699\" alink=\"#006699\">
<form action=\"tilfoj.asp\" method=\"post\">
<table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" class=\"bottom\" align=\"center\" bgcolor=\"#f7f7f7\">
<tr>
<td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Dit
Navn <span class=\"rot\"> <font color=\"#FF0000\">*</font></span></font><br>
<input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"bottom\">
</td>
<td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Email:</font><span class=\"rot\"><br>
<input type=\"text\" name=\"email\" maxlength=\"100\" class=\"bottom\">
</span></td>
</tr>
<tr>
<td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Ringetonens
Navn <span class=\"rot\"> <font color=\"#FF0000\">*</font></span></font><br>
<input type=\"text\" name=\"tonenavn\" maxlength=\"100\" class=\"bottom\">
</td>
<td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Tempo:</font><span class=\"rot\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\"><font color=\"#FF0000\">*</font></span></font><br>
<select size=\"1\" name=\"tempo\" class=\"ramme\" style=\"border: 1 solid #000000\">
<option value=\"Vælge Selv\" selected><span class=\"rot\">For Nokia</span></option>
<option value=\"40 BPM\"><span class=\"rot\">40 BPM</span></option>
<option value=\"45 BPM\"><span class=\"rot\">45 BPM</span></option>
<option value=\"50 BPM\"><span class=\"rot\">50 BPM</span></option>
<option value=\"56 BPM\"><span class=\"rot\">56 BPM</span></option>
<option value=\"63 BPM\"><span class=\"rot\">63 BPM</span></option>
<option value=\"70 BPM\"><span class=\"rot\">70 BPM</span></option>
<option value=\"80 BPM\"><span class=\"rot\">80 BPM</span></option>
<option value=\"90 BPM\"><span class=\"rot\">90 BPM</span></option>
<option value=\"100 BPM\"><span class=\"rot\">100 BPM</span></option>
<option value=\"112 BPM\"><span class=\"rot\">112 BPM</span></option>
<option value=\"125 BPM\"><span class=\"rot\">125 BPM</span></option>
<option value=\"140 BPM\"><span class=\"rot\">140 BPM</span></option>
<option value=\"160 BPM\"><span class=\"rot\">160 BPM</span></option>
<option value=\"180 BPM\"><span class=\"rot\">180 BPM</span></option>
<option value=\"200 BPM\"><span class=\"rot\">200 BPM</span></option>
<option value=\"225 BPM\"><span class=\"rot\">225 BPM</span></option>
</select>
</span></td>
</tr>
<tr>
<td colspan=\"2\" height=\"167\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
Nokia<span class=\"rot\"><font color=\"#FFFFFF\"> <font color=\"#FF0000\">*</font></font></span><font color=\"#FF0000\">
</font></font><font color=\"#FF0000\"><br>
</font>
<textarea name=\"rnokia\" cols=\"50\" rows=\"8\" class=\"bottom\"></textarea>
</td>
</tr>
<tr>
<td colspan=\"2\" height=\"167\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
Siemens<span class=\"rot\"><font color=\"#FFFFFF\"> <font color=\"#FF0000\">*</font></font></span><font color=\"#FF0000\">
</font></font><font color=\"#FF0000\"><br>
</font>
<textarea name=\"rsiemens\" cols=\"50\" rows=\"8\" class=\"bottom\"></textarea>
</td>
</tr>
<tr>
<td colspan=\"2\" height=\"167\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
Ericsson<span class=\"rot\"><font color=\"#FFFFFF\"> <font color=\"#FF0000\">*</font></font></span><font color=\"#FF0000\">
</font></font><font color=\"#FF0000\"><br>
</font>
<textarea name=\"rericsson\" cols=\"50\" rows=\"8\" class=\"bottom\"></textarea>
</td>
</tr>
<tr>
<td colspan=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
</span></font>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"200\">
<tr>
<td align=\"left\">
<div align=\"left\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
<font color=\"#FF0000\">*</font></span><font color=\"#666666\"> =
Skal indtastes</font></font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"400\">
<tr>
<td>
<div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
<input type=\"Submit\" value=\"Tilføj\" name=\"Submit2\">
<input type=\"Reset\" value=\"Slet Alt\" name=\"Reset2\">
</b></font></div>
</td>
</tr>
</table>
</form>
<%
If Trim(Request(\"navn\")) > \"\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
Conn.Execute \"INSERT INTO jwringetoner (navn,email,tonenavn,tempo,rnokia,rsiemens,rericsson) VALUES (\'\"&request.form(\"navn\")&\"\',\'\"&request.form(\"email\")&\"\',\'\"&request.form(\"tonenavn\")&\"\',\'\"&request.form(\"tempo\")&\"\',\'\"&request.form(\"rnokia\")&\"\',\'\"&request.form(\"rsiemens\")&\"\',\'\"&request.form(\"rericsson\")&\"\')\"
Conn.Close: Set Conn = Nothing
Response.Write \"<h1>Tak for din ringetone, din ringetone er blevet
sat til at blive accept hos webmasteren!</h1>\"
End IF
%>