Tilføj i database

Det er beskrevet for overfladisk, man kan ikke lave en generel formular på den måde. Det kræver at man ved hvilke felter der skal være, samt hvordan db\'en skal opbygges.

Læs og følg nedenstående tutorial, så kan du snart selv:
http://www.html.dk/tutorials/asp/

måske skulle du kigge lidt her

http://www.sqlcourse.com/

Næsten gang er det nok smartere at du opretter det i ét samlet spørgsmål og så sætter pointtallet til 45.

<%
    If Request.QueryString(\"opret\") = \"ny\" Then
%>
<form action=\"admin.asp?opret=gem\" method=\"post\">
<table>
<tr>
  <td><b>Fornavn</b></td>
  <td><input type=\"text\" name=\"fornavn\"></td>
</tr>
<tr>
  <td><b>Efternavn</b></td>
  <td><input type=\"text\" name=\"efternavn\"></td>
</tr>
<tr>
  <td><b>Initet</b></td>
  <td><input type=\"text\" name=\"int\"></td>
</tr>
<tr>
  <td><b>Adresse</b></td>
  <td><input type=\"text\" name=\"adr\"></td>
</tr>
<tr>
  <td><b>Postnr.</b></td>
  <td><input type=\"text\" name=\"postnr\"></td>
</tr>
<tr>
  <td><b>By</b></td>
  <td><input type=\"text\" name=\"by\"></td>
</tr>
<tr>
  <td><b>TLF.</b></td>
  <td><input type=\"text\" name=\"tlf\"></td>
</tr>
<tr>
  <td><b>FAX.</b></td>
  <td><input type=\"text\" name=\"fax\"></td>
</tr>
<tr>
  <td><b>Mobil.</b></td>
  <td><input type=\"text\" name=\"\"></td>
</tr>
<tr>
  <td><b>Mail</b></td>
  <td><input type=\"text\" name=\"mail\"></td>
</tr>
<tr>
  <td><b>Http:</b></td>
  <td><input type=\"text\" name=\"http\"></td>
</tr>
<tr>
  <td><b>Firma</b></td>
  <td>
  <select name=\"firma\">
  <option>Electric
  <option>Electronic
  <option>Techsoft
  <option>Holding
  <option>Data
  </select>
  </td>
</tr>
<tr>
  <td></td>
  <td><input type=\"hidden\" name=\"img\" value=\"-\"></td>
</tr>
<tr>
  <td><input type=\"submit\" value=\"gem\"></td>
  <td></td>
</tr>
</table>
</form>

<%
  End If
    If Request.QueryString(\"opret\") = \"gem\" Then

    strSQL = \"SELECT * FROM personale\"
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
   
    If InStr(Request.Form(\"mail\"), \"@\") < 1 OR InStr(Request.Form, \"@\") < 1 OR InStr(Request.Form(\"mail\"), \".\") < 1  Then
    Response.Write \"Der er fejl i dine indtastning!\"
    Else
   
    rs.Open strSQL, Conn, 1, 3
    rs.Addnew
   
    rs(\"fornavn\")            = Request.Form(\"fornavn\")
    rs(\"efternavn\")          = Request.Form(\"efternavn\")
    rs(\"int\")              = Request.Form(\"int\")
    rs(\"adr\")              = Request.Form(\"adr\")
    rs(\"postnr\")          = Request.Form(\"postnr\")
    rs(\"by\")              = Request.Form(\"by\")
    rs(\"tlf\")              = Request.Form(\"tlf\")
    rs(\"fax\")              = Request.Form(\"fax\")
    rs(\"mobil\")              = Request.Form(\"mobil\")
    rs(\"mail\")              = Request.Form(\"mail\")
    rs(\"http\")              = Request.Form(\"http\")
    rs(\"img\")              = Request.Form(\"img\")
    rs(\"firma\")              = Request.Form(\"firma\")
    rs.Update
   
    Response.Write Request.Form(\"fornavn\") & \"<br>\"
    Response.Write Request.Form(\"efternavn\") & \"<br>\"
    Response.Write Request.Form(\"int\") & \"<br>\"
    Response.Write Request.Form(\"adr\") & \"<br>\"
    Response.Write Request.Form(\"postnr\") & \"<br>\"
    Response.Write Request.Form(\"by\") & \"<br>\"
    Response.Write Request.Form(\"tlf\") & \"<br>\"
    Response.Write Request.Form(\"fax\") & \"<br>\"
    Response.Write Request.Form(\"mobil\") & \"<br>\"
    Response.Write Request.Form(\"mail\") & \"<br>\"
    Response.Write Request.Form(\"http\") & \"<br>\"
    Response.Write Request.Form(\"img\") & \"<br>\"
    Response.Write Request.Form(\"firma\") & \"<br>\"
   
    rs.Close
    Set rs = Nothing
    End If
    End If
%>

TAK forsvarene