Asp og Acces !

Prøv at kigge lidt på
http://www.activeserverpages.dk/ eller
http://www.netcoders.dk/
Her kan man finde en masse tips og meget andet om ASP

Hvordan fanden kan di give 300 point for den der?

gi ma poæng

Hejsa bootlab.....jeg kan hurtigt lave noget sådan du kan tilføje til en database via browseren....skal bare lige have informationer om din database og hvad du skal tilføje....eller vil du bare have noget du kan kigge og lære fra ?

simonbrinck> Det er kun point og ikke penge, desuden er det vigtigt for mig at komme vidre med
ASP, og jeg ville være helt sikker på at der kom svar :)

Jacand> Fede sites, Især netcoders... men det er ikke 300 p. værd....

bjarke-b>
hvad vil du vide ? :
Min db er lavet i Access.
2 tabeller med relationer til hinanden
jeg skal tilføje produkter feks.

mine poster hedder :

Produkt Tabel :
-ProduktID
-Produktnavn
-Produktbeskrivelse
-KategoriID (relation til Katagori tabel)
-Løbenr
-PrisPrEnhed
-Genbestillingsniveau

Katagori tabel :
-KategoriID
-KategoriNavn

Du må meget gerne lave et eksemple, så jeg kan se og lære....

Det ville være Stort 300 p. værd :)

BoOt

Din mail ?

Brio@bootlab.dk

Boot -> Har sendt det til dig :-)

Andre -> Skal nok lige smide sourcen ind om lidt

Tilfoej_til_db.asp:
<% Response.Buffer = True %>
<head>
<title>Tilføj data til database.</title>
</head>

<form method=\"POST\" action=\"tilfoej_til_db_gem.asp\">
<input type=\"text\" name=\"1\" size=\"20\"><br>
<input type=\"text\" name=\"2\" size=\"20\"><br>
<input type=\"text\" name=\"3\" size=\"20\"><br>
<input type=\"text\" name=\"4\" size=\"20\"><br>
<input type=\"submit\" value=\"Tilfoej\" name=\"B1\">
</form>

Tifleoj_til_db_gem.asp:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tabel\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"1\") = Request.form(\"1\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Write (\"Data er tilfoejet)
%>

Så er alt vel i orden :-)