Update af database
HejJeg ved ikke om det er den helt rigtige gruppe jeg stiller dette sprøgsmål i, men nu gør jeg det alligevel. Jeg fatter ikke hvorfor nedenstående kode ikke virker. Jeg får ingen fejl når jeg kører siden, men der kommer heller ikke noget data i db. Håber en kan hjælpe?
Koden:
<%
Dim DBplacering
Dim DBDriver
Dim DBProvider
Dim DBDataConn
'DBplacering = & Server.MapPath("/data/kundetilfredshed.mdb")
DBplacering = "kundetilfredshed.mdb"
DBDriver = "{Microsoft Access Driver (*,mdb)}"
set dbDataConn = Server.CreateObject("ADODB.Connection")
dbDataConn.Open ("Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBplacering)
set DB = dbDataConn
bSubmitted = (Request.ServerVariables("REQUEST_METHOD") = "POST")
If bSubmitted Then
With Request
inavn = Trim(.Form("navn"))
iadresse = Trim(.Form("adresse"))
itlf = Trim(.Form("tlf"))
imail = Trim(.Form("mail"))
iV1 = Trim(.Form("V1"))
iV2 = Trim(.Form("V2"))
iV3 = Trim(.Form("V3"))
iV4 = Trim(.Form("V4"))
iV5 = Trim(.Form("V5"))
iV6 = Trim(.Form("V6"))
iV7 = Trim(.Form("V7"))
iV8 = Trim(.Form("V8"))
iV9 = Trim(.Form("V9"))
iV10 = Trim(.Form("V10"))
iT1 = Trim(.Form("T1"))
iT2 = Trim(.Form("T2"))
iT3 = Trim(.Form("T3"))
iT4 = Trim(.Form("T4"))
iT5 = Trim(.Form("T5"))
iT6 = Trim(.Form("T6"))
iT7 = Trim(.Form("T7"))
iT8 = Trim(.Form("T8"))
iT9 = Trim(.Form("T9"))
iT10 = Trim(.Form("T10"))
iForslag = Trim(.Form("forslag"))
End With
' insert svar
sql = "INSERT INTO svar (navn, adresse, tlf, mail, V1, V2, V3, V4, V5, V6, V7, V8, V9, V10, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, forslag) " & _
"VALUES ('inavn', 'iadresse', 'itlf', 'imail', 'iV1', 'iV2', 'iV3', 'iV4', 'iV5', 'iV6', 'iV7', 'iV8', 'iV9', 'iV10', 'iT1', 'iT2', 'iT3', 'iT4', 'iT5', 'iT6', 'iT7', 'iT8', 'iT9', 'iT10', 'iforslag');"
DB.Execute(sql)
response.redirect "tak.asp"
End If
%>
<body>
<table bgcolor="#2DB02D">
<tr>
<td><b>Vi vil bede dig om at vurdere spørgsmålene på to måder. </b><br></td>
<tr>
<td><b>Hvor vigtig er det for dig (vigtighed)?/<b><br>
<b>Hvor tilfreds er du med Rang-sells Danmark A/S håndtering (tilfredshed)?</b></td>
<tr>
<td><b>Du må give karakterer fra 1 til 3, hvor 1 er ikke vigtigt/tilfreds og 3 <br>er meget vigtigt/tilfreds.</b></td>
</tr>
</table>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="InsertSvar">
<table bgcolor="#2DB02D">
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Firmanavn / navn</b></font></td>
<td width="3px"> </td>
<td align="center" colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="navn" wrap="virtual" style="width:200 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4">Adresse</b></td>
<td> </td>
<td align="center" colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="adresse" wrap="virtual" style="width:200 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4">Tlf</b></td>
<td> </td>
<td align="center" colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="tlf" wrap="virtual" style="width:200 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4">Mail</b></td>
<td> </td>
<td align="center" colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="mail" wrap="virtual" style="width:200 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
</tr>
<tr>
<td><Font size="4"><b>Spørgsmål</b></font></td>
<td width="3px"> </td>
<td align="center"><b>Vigtighed</b></td>
<td align="center"><b>Tilfredshed</b></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Service</b></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Afhenter vi affaldet til tiden ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V1" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T1" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore medarbejdere venlige ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V2" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T2" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Får du de informationer du beder om, når du ringer ind ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V3" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T3" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Materiel</b></td>
<td> </td>
<td></td>
<td></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore biler i god stand ( rene og præsentable ) ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V4" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T4" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore containere i god stand ( rene og præsentable ) ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V5" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T5" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Fungerer vore containere efter hensigten ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V6" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T6" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Fakturering</b></td>
<td> </td>
<td></td>
<td></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore fakturaer overskuelige ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V7" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T7" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore fakturaer korrekte ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V8" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T8" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Indrapportering</b></td>
<td> </td>
<td></td>
<td></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Er vore mængderapporter overskuelige ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V9" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T9" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
</tr>
<tr>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
<td height="4"></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font color="#FFB400" size="4"><b>Helhedsvurdering</b></td>
<td> </td>
<td></td>
<td></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Hvor tilfreds er du med at have valgt Ragn-Sells Danmark A/S ?</td>
<td> </td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="V10" wrap="virtual" style="width:40 px; height:25px;" onkeyup="onKeyEnter('InsertSvar');"></textarea></td>
<td align="center" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><input type="text" name="T10" wrap="virtual" style="width:40 px; height:25px;"></textarea></td>
</tr>
<tr>
<td style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> Har du forslag til, hvordan vi kan blive bedre ?</td>
<td> </td>
<td colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><textarea name="bedre" wrap="virtual" style="width:200 px; height:50px;"></textarea></td>
</tr>
<tr>
<td></td>
<td></td>
<td></td>
<td bgcolor="#009933" align="center" style="border-style: solid; border-width: 2; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><Font size="4" color="#FFB400"><a href="java script:document.InsertSvar.submit();">Send</a></td>
</tr>
</table>
</form>
</body>
<%
DB.Close
Set DB = nothing
%>
