Ben bezig met een database te bouwen betreffende schadeauto's. Deze voertuigen moeten online door medewerkers van onze zaak geplaatst kunnen worden maar nu is mn vraag:
- Hoe kan k plaatjes uploaden naar een *.mdb en
- het plaatje een grootte krijgt die k zelf instel dwz allemaal bv 50px bij 50px.
Weet iemand hoe k dit klusje klaar ? Heb een gedeelte van mn script voor t plaatsen van een auto hieronder geplaatst. Voor vragen etc roept u maar
thnx
- Hoe kan k plaatjes uploaden naar een *.mdb en
- het plaatje een grootte krijgt die k zelf instel dwz allemaal bv 50px bij 50px.
Weet iemand hoe k dit klusje klaar ? Heb een gedeelte van mn script voor t plaatsen van een auto hieronder geplaatst. Voor vragen etc roept u maar
thnx
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| <%
Dim adoCon
Dim rsAddSchadeauto
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database_schadeautos.mdb")
Set rsAddSchadeauto = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tabelauto.merk, tabelauto.type FROM tabelgastenboek;"
rsAddSchadeauto.CursorType = 2
rsAddSchadeauto.LockType = 3
rsAddSchadeauto.Open strSQL, adoCon
rsAddSchadeauto.AddNew
rsAddSchadeauto.Fields("merk") = Request.Form("merk")
rsAddSchadeauto.Fields("type") = type
rsAddSchadeauto.Update
rsAddSchadeauto.Close
Set rsAddSchadeauto= Nothing
Set adoCon = Nothing
server.transfer "bevestiging.asp"
%> |