how i want to implement this coding...below i attach my coding
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim aduan
Dim id
Dim pengguna
Dim code
Dim sbb
Dim lok
Dim blok
Dim ting
Dim bil
Dim tarikh
Dim sq
Dim db
Dim sq2
Dim sq3
Dim rs
aduan=request.form("textfield")
pengguna=request.form("textfield")
code=request.form("kerosakan")
sbb=request.form("textfield3")
lok=request.form("select")
blok=request.form("blok")
ting=request.form("tingkat")
bil=request.form("bilik")
tarikh=request.form("tarikh")
set db = Server.CreateObject ("ADODB.Connection")
db. Open "sambung"
sq2="select id_aduan from tb_arkib"
set rs=db.execute(sq2)
rs.movelast
aduan=rs("count")
aduan=aduan+1
'rs("count")=aduan
sq= "INSERT INTO tb_arkib(id_aduan, id_user, kod_kerosakan, sebab_kerosakan, lokasi, blok, tingkat, no_bilik, tarikhmasa) VALUES ('" & aduan & "', '" & pengguna & "', '" & code & "', '" & sbb & "' ,'" & lok & "' ,'" & blok & "','" & ting & "','" & bil & "','" & tarikh & "')"
set rs = db.execute(sq)
db.close
Response.Redirect ("timakasih.asp")
%>
</body>
</html>