i need help

i have probs doing coding things can someone tell mee what's wrong with my coding and how to correct the errors

<%@ Language="VBScript" %>
<!-- #include file="connectionstring.asp" -->
<%
'variables
dim Conn, Connstring, Sql
dim LADate, SMSLotNumber, LotTradeCode, LotQty, Shift, DeviceName
dim SOF, ReelNeedToRework, ReelingDate, TRMCNumber, QtyReject
dim DefectCode, DefectDescription, MFGTagIt, ReelSequentReject
dim RejectPerSample, LAQCStamp, EmployeeNumber, ReQualDate
dim Disqual, QCStamp, MachineDisQual
Set Conn = Server.CreateObject("ADODB.Connection")
' assign variables to items in the forms collection.
LADate = request.form("LADate")
SMSLotNumber = request.form("SMSLotNumber")
LotTradeCode = request.form("LotTradeCode")
LotQty = request.form("LotQty")
Shift = request.form("Shift")
DeviceName = request.form("DeviceName")
SOF = request.form("SOF")
ReelNeedToRework = request.form("ReelNeedToRework")
ReelingDate = request.form("ReelingDate")
TRMCNumber = request.form("TRMCNumber")
QtyReject = request.form("QtyReject")
DefectCode = request.form("DefectCode")
DefectDescription = request.form("DefectDescription")
MFGTagIt = request.form("MFGTagIt")
ReelSequentReject = request.form("ReelSequentReject")
RejectPerSample = request.form("RejectPerSample")
LAQCStamp = request.form("LAQCStamp")
EmployeeNumber = request.form("EmployeeNumber")
ReQualDate = request.form("ReQualDate")
Disqual = request.form("Disqual")
QCStamp = request.form("QCStamp")
MachineDisQual= request.form("MachineDisQual")

'database connection
Conn.provider = provider
Conn.ConnectionString = dbasepath
Conn.Open
'Sql statement to insert the data
Sql="INSERT INTO level1 ( LADate, SMSLotNumber, LotTradeCode, LotQty, Shift, DeviceName, SOF, ReelNeedToRework, ReelingDate, TRMCNumber, QtyReject, DefectCode, DefectDescription, MFGTagIt, ReelSequentReject, RejectPerSample, LAQCStamp, EmployeeNumber, ReQualDate, Disqual, QCStamp, MachineDisQual ) VALUES('" _
& LADate & "','" _
& SMSLotNumber & "','" _
& LotTradeCode & "','" _
& LotQty & "','" _
& Shift & "','" _
& DeviceName & "','" _
& SOF & "','" _
& ReelNeedToRework & "','" _
& ReelingDate & "','" _
& TRMCNumber & "','" _
& QtyReject & "','" _
& DefectCode & "','" _
& DefectDescription & "','" _
& MFGTagIt & "','" _
& ReelSequentReject & "','" _
& RejectPerSample & "','" _
& LAQCStamp & "','" _
& EmployeeNumber & "','" _
& ReQualDate & "','" _
& Disqual & "','" _
& QCStamp & "','" _
& MachineDisQual & "' )"
' execute it
Conn.Execute(Sql)

Response.Write "Data successfully inserted!"
%>

thanks..

Maybe you would be so kind to tell us what the error exactly is?